
★ COMMODORE 
ANNOUNCES NEW 
PRODUCTS 


★ COMMODORE’S 
RANGE OF DISK DRIVES 












RIBISTIRKD FOR POSTINO AS A PUBLICATION: CATIOORY B 


" 'N 

The objective of this magazine is to disseminate information to all users of Commodore com¬ 
puter products. This magazine contains a variety of information collected from other Com¬ 
modore publications, and generated locally. Contributions from all Commodore User Groups, 
and individual users are encouraged. 

Advertising space is restricted and allocated on a first-come, first-served basis. Advertising 
rates can be supplied on request. 

All copy and advertising should be addressed to: 

The Editor, 

COMMODORE MAGAZINE, 

P.0. BOX 336, ARTARMON 
N.S.W. 2064 
AUSTRALIA 

ISSUE No. COPY/ADV DEADLINE 

1 February 18th 

2 April 1st 

3 May 13 th 

4 June 17th 

5 July 29th 

6 September 9th 

7 October 14th 

8 November 25th 


V 



J 

Production A 
Vpoaotting: 

Mervyn Beamish Graphics Pty. Ltd 

82 Alexander Street, Crows Nest 

2065 

Phone 4391827 

Printer: 

Liberty Print 

108 Chandos Street Crows Nest 
2087 

Phone 43 4398 

SUBSCRIPTIONS 



r 





PUBLICATION DATE 

March 6th 
April 17th 
May 29th 
July 3rd 
August 14th 
September 25th 
October 30th 
December 4th 


Annual Subscription_Single Copy 


Postage paid within Australia $A30.00 $A5.00 

Overseas Postage Paid $A38.00 $A6.00 

Subscriptions to COMMODORE MAGAZINE can be obtained from your authorised Commo¬ 
dore Dealer, or from: 


COMMODORE MAGAZINE, 
P.O. BOX 336, ARTARMON, 
N.S.W. 2064, 

AUSTRALIA. 

Vol 1 1981 
Vol 2 1982 


V. 


Typeset and assembled off Commodore Wordcraft disks 


J 


PLEASE (MOTE: To provide a good information service to Commodore users, we will regularly mention equipment, 
software and services offered by companies and individuals not directly related to Commodore. In doing so, we are not 
making recommendations, and cannot be responsible for the validity and accuracy of any statements made. 












r 




EDITOR’S DESK . . . 


There is a lot of excitment within 
Commodore these days with so many 
new products available for the 
Commodore range of computers. 

It is encouraging to see so many 
peripherals and software packages 
available and these will be reviewed in 
the Commodore Magazine after our 
evaluation. 

This issue brings the first news of 
the Commodore 64 which was shown 
at DATA 82 and the NCC in Hobart 
during August. The initial reaction has 
been tremendous, with software 
suppliers showing a keen interest in 
developing or transferring programs 
onto the Commodore 64. The sprite 
graphics allow new dimensions in 
personal computing and combined 
with a music synthesizer, this new 
product will attract many more 
Commodore users. 

Please continue to send in your 
letters for information on any subject 
you would like covered in this 
magazine. With a mixture of PET/CBM 
and VIC readers there are many 
subjects that must still be clouded in 
mystery. Drop us a line and we will 
help to solve your Commodore 
problems. 
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COMMODORE NEWS 




new storage 

peripherals 

announced 

Increased storage capacities are 
now possible with the latest addition 
to the Commodore range of peripherals. 


The CBM 8250 gives double sided 
floppy diskette storage totalling 2 
Megabytes. A new version of the DOS 
allows relative file capacity equal to 
Ithe storage capacity of one diskette. 
I The CBM 9060 and 9090 are both 
hard disk drives using the latest 
Winchester technology to give 5 and 
7.5 Megabytes of storage. They are in 
a compact housing and utilise the 
same disk structure as the Commodore 
floppy disk drives to give software 
compatability. 

Most of the Commodore software is 
being converted to support the hard 
disk units and with the additional 
storage capacities, powerful business 
systems can be configured at 
economical prices. 


STOLEN 

Help!! A Commodore 8032 was 
stolen from a house in Cranbrook, a 
suburb of Sydney, during August 
Richard had just arrived from the U.K. 
with his Commodore system, to be 
greeted by a burglar with a fancy for 
the CPU only. 

The serial number of the 8032 is 
WG 024575 and is distinguishable by 
the fully optioned inside; high res 
board, PET Clock, EPROM expansion, 
and Commando chip. Richard is very 
keen to be reunited with his 8032 
computer and is offering a recovery 
fee of 10% of the value. 

If you see Richard’s computer, 
please contact him by phoning 
(02)669-0411 extension 336 and 
asking for Richard Greenaway. 


new arcade-style 

GAMES FOR POPULAR 
COMMODORE VIC-20 


Exciting new cartridge games, 
including three Bally/Midway arcade 
games, for the phenomenally popular 
VIC-20 home computer have been 
announced by Commodore. 

The Bally/Midway games on 
cartridge include Gorf, Omega Race 


and Wizard of Wor and are real arcade 
games. High resolution graphics, 
sound effects and play action are 
exactly like the popular Bally/Midway 
coin-operated games. Commodore’s 
own Space Vulture, Raid on Fort Knox 
and Pinball Spectacular, also planned 
for release in the near future, have the 
same kind of fast action and exciting 
graphics as the arcade games. Mole 
Attack and The Sky is Falling, 
Commodore’s new childrens’ cartridge 
games, engage tots with faster and 
faster action. 


Since the introduction of the VIC- 
20, its capabilities have continued to 
grow at a tremendous rate. VIC users 
can now learn the fundamentals of 
computer programming at home 
using Commodore’s “Introduction to 
BASIC” manuals and tapes. More 
advanced programmers have great 
flexibility for designing programs and 
creating graphics and sound effects, 
with the use of the Super Expander 
cartridge, Programmable Character 
Set Editor and VICMON machine 
language cartridge. 
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LETTERS TO 
THE EDITOR 


Dear Editor, 

As a VIC owner there are features that other users may not be familiar with. 

VIC owners should be well aware that by holding down the shift key and the Commodore key (the little flag), the character 
set changes. One set gives upper case (capitals) and when shifted, graphics characters. The other gives upper and lower 
case characters. Other graphics characters are available at all times by pressing the Commodore logo key. 

However there may be times when you would not want this swapping to occur. For instance, you may have a user defined 
character set 

Thereisawayto‘lockouf this swapping. When the VIC detects the Shift-Commodore combination, itfirst checks memory 
location 657. If the content is 127 or less, the change occurs. If the content is greater than 128, then the change will not 
happen. 

So to disable swapping POKE 657,255 

To enable swapping POKE 657,0 

There is another way using control codes. 

To disable PRINT CHR$(8) 

To enable PRINT CHR$(9) 

Regards, 

Brad Fisher. 

Dear Editor, 

I have just bought a copy of ‘WORDCRAFT. I found some major flaws in the software manual and I wonder if one of your 
readers can help me understand it 
These are some of my probleems; 

1. I can’t understand the words in the manual. 

2. The index is of little help. 

3. The damn thing is awkward to use. 

Lets take each point in turn. Firstly, here is a sentence from page 54; 

“The text-associated controls are normally placed above the text character position in which they occur, e.g., the t symbol 
in the above example appears in character position 23 which is where it was used.” 

Now I simply don’t understand that at all. Can someone help? 

Second, the index; I know that it is possible to put together a mailing list on ‘WORDCRAFT. This is nowhere to be found in 
the index And there are many other ommisions. 

Thirdly, trying to balance a large plastic folder on my knee and type at the same time is a little difficult 
So I would appreciate it if someone has simplified the procedure and is willing to share. 

Yours faithfully, 

Mike Connolly, 

PO Box 458 
ARTARMON 2064. 

It seems you have not had previous experience in wordprocessing and that no training has been given when you 
purchased the WORDCRAFT package. 

Wordprocessong has its own vocabulary, very similar to the microcomputer, and unless you are familiar with 
many of the words used, it is difficult to get straight into a package as powerful as WORDCRAFT. 
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Powerful - Versatile 
COMMODORE-64 Computer Ideal 

for Home and Business Applications 


The Commodore-64, one of Commodore’s newest breakthroughs in 
adding versatility and power to home and business microcomputing, 
was unveiled at the Summer Consumer Electronics Show in 
Chicago and The National Computer Conference in Houston. 


The Commodore-64, which Shearson/ 
American Express said “could be the 
microcomputer industry’s outstanding 
new product introduction since the 
birth of the industry, “gives home and 
business users powerful 64K computing 
capability along with exciting three- 
dimensional-style colour game graphics 
and music synthesis. The suggested 
retail price will be under $1000.00 
offering the Commodore-64 one-third 
more computing power than the 
Apple II+® at a much reduced price. 

Physically resembling Commodore’s 
popular VIC 20 computer, the 
Commodore-64 can use the VIC 20 
peripherals, and goes far beyond the 
VIC’s capabilities. With the addition of 
a cassette interface, the Commodore- 
64 can use many programs and files 
created for Commodore’s sophistocated 
line of PET and CBM education - and 
business - oriented computers. And 
with the addition of an IEEE 
cartridge, the Commodore-64 can run 
any Commodore peripheral, including 
a dual disk drive and a CBM printer. 

For those programs that need 
conversion, the Commodore-64 has a 


PET emulator that makes it operate 
like a PET in most areas. One of its 
most impressive features is its ability 
to use a Z80 cartridge to run CP/M® 
giving users access to one of the 
largest collections of microcomputer 
software available. 

Computerists can use the 
Commodore-64’s versatility to syn¬ 
thesize music and play all the exciting 
games designed for the new 
Commodore MAX Machine. Its 40 
column x 25 line screen and 16 
colours give it a flexibility for users to 
create their own graphics characters 
and games. The sprite graphics allow 
many different shapes to be moved 
around the screen either in front or 
behind other sprite shapes 

With 64K Random Access memory 
(RAM) the Commodore-64 has the 
capability for sophisticated home and 
business applications Word processing 
programs will be available for the 
Commodore-64, along with 
Commodore’s own new “electronic 
spreadsheet”. Many new applications 
will be on the market soon. 

The Commodore-64 relies on state- 



of-the-art integrated circuits designed 
and produced by Commodore’s 
subsidiary, MOS Technology. The 
heart of the Commodore-64 system is 
a new microprocessor, the 6510. The 
6510 is similar to the MOS 6502 - the 
chip that made microcomputing a 
household occupation - but contains 
additional input/output (I/O) lines to 
handle the processing required by the 
new system. 
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COMMODORE MAX MACHINE, 

3 in 1 Computer-Game Machine-Music Synthesizer. 

Sure to Change the Old-Fashioned Video-Game Buying Habits of Consumers. 

The Commodore MAX Machine, a revolutionary three-in-one home 
computer-game machine-music synthesizer, was recently announced 
by Commodore Business Machines in the United States. 


The MAX Machine, shown in prototype 
at the Winter Consumer Electronics 
Show underthe code name ULTIMAX, 
drew raves for its extraordinary 
versatility, price/performance ratio 
and three-dimensional-style colour 
game graphics. Now encased in an 
innovative futuristic housing, it will be 
sold next year with an array of arcade 
games, as well educational and 
musical programs. The suggested 
retail price will be about the same as 
an ordinary television game machine 
- the Commodore MAX Machine is 
certain to change consumer's old- 
fashioned video-game buying habits. 

Relying on a new display chip 
designed by Commodore’s subsidiary, 
MOS Technology, the MAX Machine 
produces colour and graphics formerly 
available only with a highly sophisticated 
character generator. And because the 
MAX is a real computer, users do not 
have to rely on pre-programmed 
games, but can actually create their 
own games, then save them on 
cassette tape for future use. Its 40 
column x 25 line screen and 16 
colours give the MAX great flexibility 
for unique and exciting graphics. 

Using a new Sound Interface 
Device, the Commodore MAX Machine 
produces music and sound effects 
that rival many of the best music 
synthesizers now available. The MAX 
produces three independent voices, 
each with a nine-octave range, 
contains a programmable ADSR 
(attack, decay, sustain, release) gen¬ 
erator and a programmable filter, and 
has variable resonance. With these 
sophistocated features, the MAX 
Machine can command astounding 
orchestration when it is used with a 
good quality audio system. 

With a BASIC language cartridge, 
Commodore MAX Machine users can 
learn the fundamental language of 


computing and write their own 
programs using simple BASIC com¬ 
mands. MAX Machine BASIC can be 
translated for use with all other 
Commodore systems, and is capable 
of handling everything from word 
strings to math functions. With the 
MAX Machine’s nine-digit numeric 
accuracy and built-in math functions, 
users can write a variety of useful 


programs for home applcations. 

The heart of the MAX Machine 
system is a new microprocessor, the 
6510, designed by Commodore’s 
MOS subsidiary. There are many 
additional features compared to the 
6502 chip, also designed by MOS, 
such as additional input/output (I/O) 
lines to handle the processing 
required by the new system. 
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COMMODORE Quick Reference Fact Sheet 



MAX Machine 

Commodore-64 

Memory . 

. 2K built-in plus memory 

Cartridge 

as per BASIC specifications 

64K built-in 

16K ROM add-on 

Screen Size. 


40 col x 25 lines 

Graphics. 

. 320 x 200 pixels 

255 foreground/ 
background color combo 

16 text colors 

8 movable Sprites 

320 x 200 pixels 

255 foreground/ 
background color combo 

16 text colors 

64 graphic characters 

256 movable Sprites 
Independent magnification 
Extended Hi-res modes 

Sound . 

. 6581 Sound Interface 

Device (SID) 

3 independent voices, 

9 octaves each 

Programmable ADSR 
Programmable filter 

Variable resonance & 
master vol. control 

6581 Sound Interface 

Device (SED) 

3 independent voices, 

9 octaves each 
Programmable ADSR 
Programmable filter 

Variable resonance & 
master vol. control 

Peripherals. 

. Datassette 

Joystick 

Double paddle 

Lightpen 

Datassette 

Joystick 

Double paddle 

Lightpen 

Z80 microprocessor on 
cartridge 

VIC MODEM 

VIC disk drive 

VIC graphic printer 

With IEEE-488 cartridge: 

All Commodore peripherals 

Compatabilify . 

will work on 

Commodore-64 

Other BASIC Commodore 
programs easily converted. 
PET emulator to be available. 
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Using Your VIC 20 to 

The VIC 20 is a great game machine, but games are not 
its only application. You can use your VIC and its pow¬ 
erful graphic capabilities to design many types of forms, 
for both business and home. The form below, which 
allows the user to keep track of incoming and outgoing 
inventory, was printed on the VIC 1515 Graphic Printer. 
The blocks were created by piecing together graphic 
characters straight from the VIC’s keyboard. 

Let’s talk more about modifying the program to suit 
your individual needs. Line 5 is probably the only line 
you won’t want to change. This line directs the output 
to the printer. Lines 10 to 50 are the “personal” touches 
to the program. Line 10 prints the title of the form in 
enhanced letters. CHR$ (14) directs the printer to print 
in large boldface letters, and CHR$ (15) returns the 
printing to normal size. Line 18 simply prints a place to 
enter the date. Lines 30 and 40 print column titles. All 
of these names and titles can be easily changed to design 
your own forms. 

The second half of the program prints the graphic 
blocks. The accompanying chart describes how to 
obtain the special characters from the VIC keyboard. 


Design Useful Forms 


GRAPHIC 

CHARACTER KEYS 


SHIFT * 

O S 
o z 
ox 

SHIFT — 


These characters are used in lines 150 to 170. The size of 
the blocks can be changed by using different combina¬ 
tions of symbols. Changing the loop variable in line 100 
will allow you to have more rows of blocks. 

This program, with minor modifications, will allow you 
to keep track of just about anything, from your slide 
collection at home to your incoming packages at work. 
Next month we’ll feature an enhanced version of this 
program that will allow you to input your data and have 
your VIC fill in the blocks automatically. C* 

—Joseph Siciliano 


2 REM m VIC BUSINESS FORMS ** 

3 REM m BY JOSEPH SICILIANO #* 
5 QPEN4,4: CMJQ4 

10 PRINTCHR$<14)" 

15 PRINT:PRINT 
18 PRINT" 

20 PRINT:PRINT 
30 PRINT" PART 


40 PRINT" 


NO. 


SHIPPING DEP'T INVENTORY"CHR*<15> 

BATE _ / _ / _" 

BEG. RECEIPTS PACKING SHIPMENTS 
INV LIST # 


50 PRINT 
100 FOR A=1T05 
150 PRINT" r— 


160 PRINT" 

I" 

170 PRINT" 

180 PRINT 
200 NEXT A 


1 I 


J L. 


I I 


J L, 


“i r 


n r 


J L. 


J U 


RIRBILL 

NO. 


n r 

I I 

-I L. 


END 

INV 


REflDVp 
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Every 

pet needs 

a FRIEND.. 


Introducing a new series of programs that are 'FRIENDLY' to the user and 
represent outstanding value for money. .. . 

and there will be more 'FRIENDS' coming 

FRIEND I-Word Processor 

An on-line ROM chip for 8, 16, and 32K machines. This Word Processor program has 
been written by professionals specially for The Microcomputer House. 

The program can be used with or without a printer and will be available shortly in 
disk and tape versions as well. 

WP CHIP $85 

DISK $70 

TAPE $60 


FRIEND 2- Mailing List 


This is a dual disk based system for the 4000 series microcomputers. It caters for 
2,100 records per data disk and offers sort and select facilities. It will also be available 
shortly for single disk systems. 

MAILING LIST $85 

FRIENDS ■ Data Handler 

This is a ROM chip containing a machine language routine which allows the program¬ 
mer to control screen input. • Alpha Field Entry •Numeric Field Entry#Date Entry 
• Disk Fastget • Field Reverse • Field Flash. Each of these functions have different 
options. FRIEND 3 is a derivative of our security ROM used by all our packages. 

4000 series and 8000 series $85 each. 

All programs come with a complete instruction manual. 

DEMONSTRATION STOCK AVAILABLE AT NEVER TO BE REPEATED PRICES| 
JUST PHONE OR CALL IN 


The microcomputer 
srflfc House Pty.Ltd. 

IVlin 1ST FLOOR 133 REGENT STREET 

CHIPPENDALE NSW 2008 PHONE i02> oOOo’oO 
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PROGRAMMING TIPS 

by Paul Higginbottom 

First I would like to answer some frequently raised questions about 
screen formatting of data, and then take a look at a few techniques 
to make programs smaller and more elegant. 


Number Juggling. 

Formatting numbers on the screen 
can cause problems when the TAB 
function is used. If numbers are to be 
printed in columns, then it would be 
nice to ensure that the decimal point 
of the numbers always line up in the 
column. 

For example, if the number is simply 
TABbed onto the screen, and the 
number is a “0", then it will appear at 
the left hand side of the column, which 
doesn’t look very smart It is therefore 
necessary to use the length of the 
number (ie. the number of digits 
including decimal points) to drive the 
TAB expression. A number has a 
leading space and a trailing cursor- 
right which needs to be taken into 
consideration in a string. In order to 
useLEN it is first necessary to convert 
the number into a string using STR$. 
The number of characters in the 
number is given by: 

X = LEN (STRS (A)) - 1 

...where A is the number. The trailing 
cursor right is ignored by STRS but 1 is 
subtracted to take account of the 
leading space. So now, taking the 
above example, if we were to TAB (10- 
X) we would be in business, right? No, 
not quite yet. 

There are a couple more possibilities 
that should be considered. Sometimes 
it is desirable to tack leading zeroes 
onto integer numbers (ie. to display 
“0038” rather than “38”). With decimal 
numbers, we may want a specified 
number of digits following the decimal 
place, followed by trailing zeroes 
which the PET does not do for us. All of 
this will affect the positioning of 
numbers output to the screen. 

Without question, the easiest way 
to handle number formatting is to first 
turn the number into a string: 

AS = MIDS ( STRS (A). 2) 


STRS converts “A” to a string and 
the MIDS function is used to take the 
2nd character onwards, thus removing 
the leading space. To add leading 
zeroes we use the RIGHTS function: 

AS = RIGHTS ("000000” + AS, 4 ) 

Assuming “A” is an integer, the above 
will produce a 4 character string. The 
number of leading zeroes will be 
dependent on the size of “A” (ie. “16” 
produces “0016” and “1024” stays 
“1024”). For compactness, all of the 
above could have been done with: 

AS = RIGHTS ("000000” + MIDS (STR$(A),2,4) 

Rounding decimal numbers and 
adding trailing zeroes is a little trickier. 
First we must decide how many 
significant digits are to follow the 
decimal place. The following is an 
example for 2 significant digit 
truncating: 

A = 1035.55534 

A = INT (A * 100J/100 

PRINT A 

1035.55 

The above merely moves the 
number two places to the left, chops 
off the fractional part, and then moves 
it back two places to the right 
However, this is not rounding but 
rather truncating, which is not the 
same. For rounding, we must first 
decide what degree of rounding is 
desired. Most often, numbers are 
rounded to 2 decimal places, or“to the 
cent”. Our example then becomes, 
simply: 

A = 1035.55534 

A = INT (A* 100 + .5)/ 100 

PRINT A 

1035.56 

The same result would be 
accomplished by first adding .005 to A 
and multiplying that by 100, but 
BASIC is more accurate at decimal 
arithmetic that lies closer to the 
decimal point 


Numbers that end up with 1 
decimal or less will need trailing 
zeroes. Once again, this can be done 
with a string manipulation. For 
example: 

A = 1035.59534 

A = INT( ABS(A) * 100 + .5)/ 100 

PRINT A 

1035.6 

S$ = CHR$ (32 - (V/fO) * 13) 

AS = MIDS ( STRS (INT(A)) ,2) 

DP = INT ((A - INT(A)) *100 + .5) 

AS = AS + + RIGHTS (“00” + MIDS 

(STRS(DP) ,2) ,2) 

AS = RIGHTS (“ ” + S$ +AS ,10) 

PRINT AS 

1035.60 

This probably looks sort of clumsy 
but it’s designed to do everything: 
trailing zeroes; pos and neg. rounding: 
and decimal point alligning. Notice 
that we’ve taken the ABSolute value 
of A before entering the routine. S$ 
will be either a space or a minus sign. 
Then we grab the INTeger part of A 
into A$. DP is used to take the decimal 
part of A, and round it on the left of .the 
decimal point Next we build it all 
together by taking the integer part, 
adding our own decimal point 
followed by the decimal part As usual, 
the leading space is stripped off DP 
with MIDS. “00” is added to this 
(remember, DP could have a value of 
say 04 or an even 0) and RIGHTS 
comma 2 gives us our 2 decimal 
places. Lastly we add some leading 
spaces (which could also be zeroes) 
and then we stick the sign S$ on the 
front 

Easy, right? Well, you might have 
done it differently but this was a string 
juggling exercise for the practice. 

Variable Flip-Flop. 

Programs can be shortened a great 
deal with a little thought and an active 
imagination. For example, it is often 
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necessary to set a flag if a condition is 
met or to compliment the flag. One 
might code: 

1200 IF FLAG =0 THEN FLAG=1: GOT01220 

1210 FLAGO 

1220 ... 

On consideration, the statement: 
1200 FLAG = 1 - FLAG 
1210 ... 

will be seen to have the same effect 

Screen Codes to ASCII. 

This program is a screen dump 
routine which makes it possible to 
copy the contents of the screen onto 
the printer. This subroutine has been 
presented several times but we’ll be 
looking at technique as opposed to 
operation. 

5000 OPEN 4, 4 

5010 FOR J = OTO 999 

5020 P = PEEK (32768 + J) 

5030 GOSUB 5500 

5040 IF P< 64 THEN PP+ 64 : GOTO 5090 
5050 IFP<126THEN P=P+128: GOTO5090 
5060 IF P/fl 28 THEN PP+ 64 : GOTO 5090 
5070 IF Pin 91 THEN P=P- 64 : GOTO 5090 
5080 IF P=255 THEN P= 191 : GOTO 5090 
5090 PRINT #4, CHR$(P); 

5100 X =X+1: IF X=40 THEN PRINT#4: X=0: 

F=0 

5110 NEXT 

5120 CLOSE 4 

5130 RETURN 

5500 REM REVERSE FLAG 

5510 IF FI AND P>127 THEN 5550 

5520 IF P>127 THEN F=1 : PRINT#4,“[RVS]"; 

: GOTO 5550 

5530 IF F=0 AND P<127 THEN 5550 

5540 IF P<127 THEN F=0 : PRINT#4. 

"[RVS OFF]”;:GOTO5550 

5550 RETURN 

As you can see, the routine begins 
PEEKing the screen into P. The 
subroutine at 5550 deals with reverse 
field characters. Then P is converted 
to ifs corresponding CHR$ value and 
is sent to the printer. Lines 5010 and 
5100 are set up for 40 columns but 
this can be easilty changed to 80. 

Now lefs have a closer look at 
those five nasty IF statements. If we 
look at the differences between 
PEEK/POKE codes and ASCII, it 
becomes apparent that only the 3 
most significant bits (bits 5 [32], 6 [64], 
and 7 [1281 ]) are changed. “Aha a bit 
of boolean algebra will solve this 
problem!” Using the OR and AND 


functions, it is possible to make the 
conversion with just one line! Thus if 
P= PEEK(32768), the top left cornerof 
the screen, then: 

C = (9AND 127) OR «P AND 64)*2) OR((64-P 
AND 32)*2) 

Where C is the corresponding 
ASCII character. Here’s the new 
program: 

5000 OPEN 4, 4 : T=40 : S=32768 

5010 FOR J =S TO 33767 : P=PEEK(J) 

5020 RS = CHR$(146-(P AND 128)) 

5030 RS=LEFTS(R$,-(P>127 AND 

PEEK(J-1-(J=S))/f128 OR PCI28 AND 
PEEK(J-1-(J=S))>127)) 

5040 P=(P AND 127) OR((P AND 64)*2) 
OR((64-P AND 32)*2) -«P AND127)=0*64 

5050 PRINT#4, R$;CHR$(P); 

5060 IF(J-32807)/T = I NT((J-32807)/T) THEN 

PRINT#4 

5070 NEXT: CLOSE4 

The extra little bit at the end of 5040 
takes care of signs that have a 
screen code of zero. Lines 5020 and 
5030 generate a RVS ON or RVS OFF 
character and then decides whether 
to send it or not (5030). This is 
dependent on the field of the last 
character. The routine has one bug 
though: if quotes are printed to the 
printer, any RVS or RVS OFF 
characters sent will appear literally. If 
you expect there may be quotes, you’ll 
needtomodifysothataCHR$(141); is 
sent to do a carriage return with no 
line feed. Then you’ll need to position 
back to where you left off. 

This routine is dreadfully slow but it 
was meant to be an exercise in 
boolean algebra Several screen print 


utilities have been released that are in 
machine code. 

CHANGING THE DEVICE 
NUMBER ON DISK UNITS. 

by Garry Mason 

The address on all disk units is 
normally ‘hard wired’ to unit 8 on the 
IEEE bus, but it can be changed with a 
software command to any number 
between 8 and 11 on ail units except 
the single disk units which have a 
range of between 8 and 15. 

This allows more than one disk unit 
to be on line to any one CPU, with the 
devices being dynamically assigned 
and readily accessable under the new 
unit number. 

This can be accomplished by the 
following sequence of instructions. 
DO is the old device number(normally 
8) and DN is the new device number. 

10 LB= 12 (for 8050, 8250) 

LB= 50 (for 4040, 3040) 

LB= 119(for2031, 1540, 1541) 

20 DO= 8 

30 DN= 9 

40 OPEN 15,DO,15 

50 PRINT# 15,"M-W'CHR$(LB)CHR$(00) 
CHR$(2)CHR$(DN+32)CHR$(DN+64) 

60 CLOSE 15 

The program writes two bytes 
(dn+32 & dn+64) to the DOS common 
area of $000C. These variables are 
called by the system as LSNADR 
(listen address) and TLKADR (talker 
address) in the IEEE handshake 
routines. 
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A USERABLE RESTORE. 


by Brad Fisher 

If any of your programs use DATA 
statements extensively, then you 
have probably wished at some time or 
another to be able to say; 

160 IF A=1 THEN RESTORE 200 

and have line 200 as your next source 
of DATA Unfortunately, Commodore 
BASIC doesn’t allow this. Here are a 
number of ways to do this (almost) 
ranging from the simple to the very 
simple. 

Often we want to choose between 
two or more blocks of DATA. The end 
of each DATA-block must be flagged 
with a unique value. e.g. 99999 or 
XYZZX. If we have done this we can 
use the following subroutine:- 

8000 RESTORE 

8010 READ A:IFA<>99999 THEN GOTO 

8010 

8020 RETURN 

To start from the first DATA-block, 
GOSUB8000. To bypass the rest of 
the current DATA-block to reach the 
start of the next, simply GOSUB8010 
‘But I knew that!’ you say. 

If your subroutine is not near the 
start of your program, or you have a 
mammoth number of DATA statements, 
this could be quite time consuming. A 
slightly quicker way would be to use a 
FOR-NEXT loop. Since BASIC stores 
the actual return address of the loop, 
no time is lost searching for the 
correct line number (8010 in the 
above example). 

Try this:- 

8000 RESTORE 

8010 FOR XZ=0TO1 STEPO 

8020 READ A: IFA=99999 THEN XZ=1 

8030 NEXT:RETURN 

‘Step zero?’ you ask, ‘Yes’ I answer 

Because the step value is zero, the 
FOR loop will continue at infinitum, 
unless we exit the loop prematurely or 
change the index ourselves. With this 
subroutine, the end of the DATA-block 
is found quite quickly. 

The third method is the simplest of 
all (just a teensy bit of a lie!) BASIC 
stores the address and the line 
number of the next available DATA 
statement in zero page. What could be 
simpler than to juggle these locations 
and make BASIC READ what we want 
it to READ? However, it must be done 


in machine code (and this method is 
the fastest). It will be accessed with a 
SYS call. e.g. SYS 826,[line number]. 

In the code we will first need to 
check for a comma, to seperate our 
parameters. Then we have to evaluate 
the expression on the right This 
means we can say SYS 826,(4*l+k) 
eta 

Next we have to check whether the 
line number is in range. BASIC needs 
to know the address of this line 
number, so we must search for it (with 
an error message if there is no such 
line). 

Lastly we place the chosen line 
number and it’s address in the correct 
place in zero page. 

Simple. 

Now here’s how to do it 

BASIC 2.0 

JSR SCDF8 /check for comma 
JSR $CC8B/evaluate expression 
JSR $D6D2 /checkvalid line number 
LDA $12 /place line number in 
STAS3D /’current data line 
LDA $ 11 /number* locations 
STA$3C 

JSR $C52C /find address 
BCCSOD /not found? 

LDA $5D /convert address 
SBC#$01 /to correct value 
STAS3E /and store in 
LDA $5D /current data 
SBC#$00 /address’ pointer 
STA $3F 

RTS /return if ok 
LDX#$31 /print error message 
JMP $C357 /and exit 

HEXDUMP 

.:20 F8 CD 20 8B CC 20 D2 
JD6A5 12 85 3D A5 11 85 
:3C 20 2C C5 90 OD A5 5C 
.:E9 01 85 3EA5 5D E9 00 
.:853F 60 A2 31 4C57C3 


BASIC 2.0 OBJECT CODE 

LOADER 

1 

DATA 32,248.205. 32,139,204. 32,210. 

1102 

2 

DATA214.165, 18.133.61.165. 17,133. 

906 

3 

DATA 60, 32, 44,197.144, 13,165. 92. 

747 

4 

DATA233,1,133, 62.165, 93,233. 0. 

920 

5 

DATA 133, 63, 96,162. 49. 76. 87,195. 

861 

10 

DIMBYTE(7) 



100 PRINT’ 

110 PRINT’ THIS ADDRESS USED TO CALL RESTORE 
120 PRINT’ 

130 S A=VAL(SAS): IF SA< 10RSA>49152THENPRINT 
140 F0RLINE=1T05 
150 SUM=0 

160 FORJ=0TO7:READ BYTE(J) 

170 SUM=SUM+BYTE(J):NEXT 
180 READ CHECK 
190 IFSUMOCHECKTHENPRINT 
200 PRINTDATA LINE #";LINE;“OK” 

210 FORJ=0TO7:POKEA+J.BYTE(J):NEXT 

220 SA=SA+8:NEXT 

READY 


VIC BASIC V2 

JSR SCEFD /check for comma 
JSR SCD8A /evaluate expression 
JSR SD7F7/check valid line number 
LDA SI 5 /place line number in 
STA $40 /current data line 
LDA $14 /number* locations 
STA$3F 

JSR $C613 /find address 
BCC SOD /not found? 

LDA $5F /convert address 
SBC#S01 /to correct value 
STA $41 /and store in 
LDA $60 /'current data 
SBC#S00 /address’ pointer 
STA $42 

RTS /return if ok 
LDX#$18 /print error message 
JMP $C437 /and exit 

HEXDUMP 

j20 FD CE 20 8A 
,:CD 20 F7 D7 A5 
>1585 40A514 
.:85 3F20 13C6 
J900DA5 5FE9 
.:01 85 41 A5 60 
,:E9 008542 60 
:A2 18 4C37C4 

VIC BASIC V2 OBJECT CODE LOADER 

1 DATA 32.253,206. 32.138,661 

2 DATA 205. 32.247. 215.165. 864 

3 DATA 21,133. 64.165.20.403 

4 DATA 133, 63, 32, 19.198,445 

5 DATA 144, 13,165, 95,233,650 

6 DATA 1,133,65.165,96,460 

7 DATA 233, 0,133. 66, 96,528 

8 DATA 162, 24, 76, 55,196,513 
10 DIMBYTE(4) 

100 PRINT 

110 PRINT7HIS ADDRESS USED TC:PRINTCALL RESTORE 
120 PRINT 

130 SA=VAUSA$):IFSA<10RSA>49152THEN PRINT 
140 FORLINE=lT08 
150 SUM=0 

160 FORJ=0TO4:READ BYTE(J) 

170 SUM=SUM+BYTE(J):NEXT 
180 READ CHECK 
190 IFSUMOCHECKTHEPRINT 
200 PRINTDATA LINE #’’;LINE;“OK’’ 

210 FORJ=0TO4:POKEA+J.BYTE(J):NEXT 
220 SA=SA+5:NEXT 

READY. 

The value $31 loaded into the X reg¬ 
ister in the BASIC 2.0 version will 
produce a 

?DATA ERROR IN line number zzz 
if the target line number does not exist 
The error message can be changed by 
changing the X register value, (see 
below) 

Similarly, in VIC BASIC, the value 
$18 produces a ?FILE DATA ERROR 
IN line number zzz 

One of the main uses of DATA 
statements is in filling an array so quick 
access to data is possible. With a 
routine such as this, the array, in many 
cases, is not needed. The number 
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which would normally be used as a 
subscript to the array is simply used to 
RESTORE a given line of DATA. The 
necessary information can then be 
READ in and used, no waste of time 
AND a saving of bytes! 

Maybe you can think of other uses 
fora routine such as this. You may wish 
to add other features or change error 
messages. Owners of the VIC may wish 
to use the actual RESTORE command 
by changing the RAM vectors. 
EXPERIMENT! 


ERROR MESSAGES 

Load the X register with the following 
values to change the error message 

BASIC 2.0 VIC BASIC V2 
UNDEFD STATEMENT $5A 411 

ERROR 

FILE DATA ERROR $BF $18 

OUT OF DATA ERROR $2A SOD 

DATA ERROR $31 - 

Due to the different methods of 
printing error messages on the VIC and 


the PET, ‘DATA ERROR’ cannot be 
obtained on the VIC. 

Footnote: 

If the target line of the routine is not a 
DATA line, the next highest DATA line 
will be RESTOREdL If there is no next 
DATA line, then an ‘OUT OF DATA 
ERROR’ will occur. 

This fact may make it undesirable to 
use ‘OUT OF DATA’ as an error 
message if no line exists, as the actual 
cause of the error may be ambiguous 




1/1020 

40/80 COLUMN 
CARTRIDGE 



★ 40/80 Column Display (not colour) 

★ Vic and CBM Graphics 

★ Load all PET/CBM Programmes 

★ All Cursor control Upper and Lower Case 

★ Switchable from basic without losing programme 

★ No alterations to Vic required 

★ No external power supply required 

★ Works together with 32k Basic Vic computer 



ELECTRONICS 

416 LOGAN RD. (Pacific Hwy.) STONES CORNER, 
BRISBANE. TEL (07)3970808, 3970888. P.O. Box 274 
SUNNYBANK QLD. 4109 TELEX AA40811 
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WSC INTERFACE AND 
PROGRAMMING CARTRIDGES 


INTERFACING 

The VIC-1011 RS232C ADAPTER 
is available in two types; 



- VIC-1011A TERMINAL TYPE 

- VIC-1011 B CURRENT LOOP 

TYPE 

The VIC-1011 RS232C ADAPTER 
has a standard connector so that it 
can be used for data communications 
by being connected directly with an 
acoustic coupler or a modem. 

The VIC RS232 interface is in 
conformity to the EIA STANDARD 
(Aug. 1979). 

The cartridge is inserted into the 
user port of the VIC-20 personal 
computer. 

The VIC-1 Oil RS232C adapter has 
the following two operation levels:- 

1) BASIC level, 

2) Bit/Byte handler of machine 

language level. 

BASIC Level 

When using the VIC-1011 RS232C 
adapter at the BASIC level, the 
standard I/O commands of CBM 
BASIC (OPEN, CLOSE CMD, INPUT#, 
GET#, PRINT#) and the special 
variable ST are used. 

Also, it can be linked with machine 
language programs for more sophist- 
ocated communications and the 
further expansion of its operating 
range. 


Bit/Byte Handler 

RS232C bit/byte level handler 
operates under the control of VIA 
(Versatile Interface Adapter), MPS6522 
device timers and interrupts. It 
executes the RS232C protocol while 
the execution of the BASIC and 
machine language programs are in 
progresa 

A detailed booklet is supplied with 
the cartridge to provide information 
on setting up the cartridge and how to 
program the VIC-20 to use the 
RS232C interface. 


PROGRAMMERS AID 



This cartridge helps new and 
experienced programmers write, edit, 
cruch and debug BASIC programs. 

This cartridge adds more than 20 
special editing commands to the VIC 
instruction vocabulary and gives an 
easy method of redefining the VIC’s 
programmable function keys. 

If you are an experienced 
programmer, you already know how 
helpful it it to automatically number 
and renumber program lines, delete 
and insert segments, view program 
lines as they run, jump to commands 
or character strings and use the VIC 
special function keys to increase your 
programming power. 

If you are beginning programming, 
the Programmers Aid cartridge will 
make it easier to write programs, 
understand how they work, and find 
and correct errors. 


SUPER EXPANDER 



This cartridge adds an entirely new 
set of colour, graphics, plotting, music 
and function key commands to the 
VIC vocabulary and adds 3K extra 
memory to load and run larger 
programs. 

Graphic shapes can be plotted, 
colours ‘painted’ on the screen, music 
written and much much more. 

The commands and functions work 
just like BASIC commands. In 
addition, most of the new commands 
are pre-assigned to the special 
function keys. 

A valuable cartridge for those who 
want to develop all the special 
features of the VIC-20 computer. 

MACHINE LANGUAGE 
MONITOR 

When the VIC-20 is turned on, the 
computer is in ‘READY mode and will 
accept instructions to run a BASIC 
program. 

BASIC text is converted by the 
interpreter into machine code instruct¬ 
ions which the microprocessor can 
respond to. If programs are written 
directly in machine code, faster 
running speeds will be obtained. 

Detailed instructions on machine 
language programming can be found 
in the VIC-20 Programmers Reference 
Guide. 

The VIC MON cartridge also allows 
the user to construct 6502 machine 
code programs and includes a one 
line assembler/disassembler. 


MEMORY EXPANSION 
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The VIC-20’s user memory can be 
simple expanded by plugging in one 
of the memory cartridges. 

The cartridges are available in 3K, 
8K and 16K segments and can be 
configured to work together when 
using the VIC 1010 expansion unit 

VIC 1010 MEMORY 
EXPANSION MODULE 

This unit plugs into the memory 
expansion bus at the rear of the VIC- 
20 computer. 

Six slots are provided to take up to 
six cartridges such as memory 
expansion, Programmers Aid, various 
games etc. 

Power is supplied to the VIC 1010 
by a mains cable and no other 
accessories are required to connect 
to the VIC-20 computer. 



SPECIFICATIONS 

Input Voltage 220-240 VAC 50 Hz 

Dimensions 

Depth: 235mm (Body 
187mm, Edge 48mm) 

Power 

5.05 VDC, 7A 


Width: 397mm 

Temperature 

0-40 degrees C 


Height: 53mm 

Humidity 

40-85% 

Weight 

1.66 Kg 


Letters to the Editor continued from Page 3 

I would strongly suggest you contact the Dealer from whom you obtained the package to organise a training 
session and the benefits will certainly allow you to master wordprocessing. 

Mailing lists are described in the training manual underthe heading of‘document assembly’ and this is detailed 
in the index. 

To explain the paragraph you quoted, the text associated controls are commands that tell the text how to format, 
such as tab stops, line feeds, indents, underlines etc.. 

Instead of cluttering the text, they are attached to the appropriate character and the character highlighted in the 
text by reversing the character (ie a black character on green background). To see what the controls are, then use 
the ‘CONTROL C’ function forthe line you wish to view, which will show all control characters on lines 3 and 4 on the 
screen, in the same character position where it is used. 

In the example you quoted, the t symbol is a tab stop, indicating a tab point at position 23. 

Dear Editor, 

How can I obtain VIC schematics and a VIC memory map? 

Regards, 

Ron Miller. 


The memory maps have been published in the last two issues of the Commodore Magazine, however both the 
schematics, memory maps and other technical information is available in the VIC 20 Programmers Reference 
Guide which is available from your Commodore Dealer. 

The VIC Revealed also has the memory maps and details of the Kernal routines and this book is also available 
from your Commodore Dealer. 
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VIC 20 CARTRIDGE 
DEVELOPMENT 


Peter Higginbottom 
Commodore Canada 


Power-up Activity. 

When the VIC 20 is powered on, it 
looks for a sequence of bytes in a 
place in memory, which will tell the 
computer whether or not there is a 
cartridge plugged in. If this pattern of 
bytes is not present, the VIC goes 
about it’s usual chores, and comes up 
with the familiar message: 

**** CBM BASIC M2 *** 

3583 BYTES FREE 

(may be a different amount) 

READY. 

The Sequence of Bytes. 


“NMI” interrupt occurs. For those who 
are not aware of this, the RESTORE 
key actually generates an NMI 
interrupt, and so it may be used to re¬ 
start a game, or better still if pressed 
while holding down another key 
similtaneously (usually RUN/STOP) to 
avoid accidental re-starts. 

An example in assembly coding 
might be: 

*=$AOOO 


.WORD COLD ;LOW, HIGH VECTOR TO 

FIRST INSTRUCTION 

.WORD WARM ;LOW, HIGH VECTOR ON 
“WARM STAHI 


The sequence of bytes the VIC 20 is 
looking for are located from $A004 to 
$A008. They should contain: 


BYT $41, $30, $C2, $C3, $CD 
IGNORE NMI INTERRUPTS 


HEX 

HEX 

CBM ASCII 

Address 

Contents 

Equivalent 

$A004 

$41 

“a” 

$A005 

$30 

“O” 

$A006 

$C3 

“C" 

$A007$C2 

“B” 


$A008 

$CD 

“M" 


WARM PLA 
TAX 
PLA 
TAY 
PLA 
RTI 

COLD - CARTRIDGE CODE STARTS HERE 


To recap then, “aOCBM” is the 
sequence. If the VIC does see this 
sequence, what does it do? Well, 
that’s what the first four bytes from 
$A000 to $A003 are for. If the VIC 
sees the sequence, it will hump 
indirectly through $A000, ie. using the 
vector at $A000 as a power up 
addresa In laymans terma this means 
wherever your code is that you want to 
execute at power-up, the address of it 
should be stored in “low, high” format 
at $A000 and $A001. This will be 
known as the “cartridge cold start 
vector”. 

That still leaves $A002 and $A003. 
They form another vector called the 
“cartridge warm start vector”. This will 
be vectored through whenever an 


BASIC Programs in a 
Cartridge. 

It is inadvisable to try to “RUN” 
BASIC programs out of a cartridge. 
A compromise would be to do the 
usual power-up activities (ie. test 
RAM, etc.) and then “move” the 
BASIC program from the cartridge 
to RAM, and execute (probably 
easiest to do by putting a 
RUN/fRETURN> in the keyboard 
buffer). It is also inadvisable to put 
BASIC in a cartridge anyway 
because of the hazard of someone 
putting the code onto a more 
“transportable” medium such as 
tape or disk. This can be partially 


avoided by disabling the RUN/STOP 
key, and the restore key by using 
the WARM start vector, and 
changing the IRQ vector into the 
cartridge. 


Cartridge Standards. 

Here are some standards that 
have been laid out for operation of 
cartridge software: 

1. Users should have the opportunity 
to adjust the screen before 
commencing; horizontal adjust 
($9000) using the cursor left/right 
key and vertical adjust ($9001) 
using cursor up/down. 

2. Where applicable, games should 
have both keyboard and joystick/ 
paddle control. The keys to use are: 

UP p 

A-'FIRP LEFT-L :-RIGHT 

DOWN 

3. Also where applicable, FI and F3 
are used to choose 1 or 2 players. 
Afterwards, FI is used to start play 
action. Provide about a 5 second 
delay between “Play Player 1” and 
“Play Player 2”. 

4. Function key 7 should flip interlace 
mode. Some TV’s scan every raster 
“one after another”. Other TV’s 
scan every second raster, then go 
back and do the “in between” 
rasters. The VIC chip can provide 
for this by simply setting or 
unsetting bit 7 of $9000. The user 
will decide which looks best 

6. Finally, the combination of the 
RUN/STOP and RESTORE keys 
should re-boot the game, as if 
power were interrupted. 
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USING THE PROGRAMMABLE 
CHARACTER SET EDITOR 

We wanted to tell you about a fascinating new product for the VIC 20 
and the best way to do that is to give you an example of what you can 
do with the product. THE TUMBLER is a screen animation program 
which you can type directly into your VIC 20 and RUN. 



You can use the editor to write the 
SAME type of program yourself, LIST, 
SAVE and RUN it in BASIC. Try typing 
TUMBLER exactly as shown below, 
and type RUN. You can also SAVE this 
on tape for future use by using your 
Commodore DATASSETTE data re¬ 
corder, or on disk using the VIC 1540 
DISK DRIVE. 


10 

11 

12 
14 
20 
25 

30 

40 

50 

60 


REM:TUMBLER BY M. TOMCZYK 

1=7168:F0RJ=32*8T032*8+7: 

POKE7168+J,0:NEXTJ 

!EAD CH:IFCH=-1 THENGOTO20 


3 OKEK,CH:K=K+1 :GOTO12 
3 RINTCHR$(147):X=64:POKE36869,255 
=RINT: PRI NTSPC(6)CH R$< 18)CHR$(30) 
"TUMBLER!”CHR$(146)CHR$(31) 

3 OKE36878,15:S=36875:B=128: 

E=138:PRINTCHR$(31) 


FORM=BTOESTEP5:NEXTM:POKES, 

M:POKES,0 

PRINTTAB(80-X)CHR$(X)CHR$(32) 

CHR$(145) 

FORM=BTOESTEP5:NEXTM: POKES, 
M: POKES, 0 


70 IFX=79THENEND 
80 FORT=1 T0150:NEXTT 
90 X=X+1 :B=B+5:E=E+5:GOTO40 
100 FORP=1TO100:NEXTP:GOTO20 
500 REM:TUMBLER CHARACTERS 
505 DATA24.24.127,24,56,40,40,40 
510 DATA96,96,60,50,240,72,36,18 


515 DATA96,98,60,16,114,78,66,192 
520 DATA50,52,152,113,50,44,32,24 
525 DATAO,4,104,113,62,48,73,134 
530 DATA65,34,20,217,242,60,192,0 
535 DATA65,34,148,89,50,252,192,0 
540 DATA48,8,228,28,12,63,48,0 
545 DATA64,32,16,240,16,56,84,68 
550 DATAO,64,32,24,248,28,42,34 
555 DATA1,2,4,254,30,40,72,132 
560 DATA38,22,8,24,52,82,144,144 
565 DATA12,76,56,14,8,24,36,34 
570 DATA48.178,84,56,16,16,40,68 
575 DATA177,178,84,56,16,16,40,68 
580 DATA48,48,16,56,84,16,16,48,-1 


The key is the DATA starting on 
lines 505. What the Character Editor 
lets us do is this: 

1. First we created a series of special 
characters using the Character Set 
Editor. 

2. We then typed “SAVE” from the 
editor’s command menu and typed 
“LIST’. The list command gave us a 
list of 8-number DATA statements 
for each of the special characters 
we created. Each special character 
is represented by ONE LINE of 
DATA statements. 


3. The BASIC program we then wrote 
includes a section which lets us 
identify our programmable char¬ 
acters as DATA statements, tells 
the VIC to READ that DATA and 
create characters in memory and 
on the screen (POKE36869.255) 
PRINT those special characters in 
line 50 (the X is the special 
character). 

Immediately after we PRINT the 
character (CHR$(X)) we PRINT a 
space to erase that character 
(CHR$(32)) and tell the VIC to move 
one space to the left and PRINTthe 
next character one space over. In 
this way we create the illusion of 
animation on the screen. 

4. When you RUN the program, the 
programmable characters appear 
and move. If you want to experiment, 
you can change some of the 
numbers in the DATA statements 
and watch how the characters 
change. 

The VIC Programmable Character 
Set & Gamegraphics Editor is a useful 
aid for both BASIC and Machine 
Language programmers ...and is 
friendly enough for first-time computer- 
ists to use with little or no experience. 
The Character Editor retails for only 
$25.00 (Code 100164) and is 
available from most VIC dealers. It 
comes with a 16 page instruction 
manual which talks you through all the 
features, step-by-step. 

The Character Editor lets you 
perform all sorts of fascinating tricks 
with your VIC 20 ...but most importantly it 
lets you create your own characters! 
This means you can create foreign 
language character sets, game graphics, 
special notation symbols ...anything 
your imagination conjurs up. 
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FAST FORWARD ON VIC CASSETTE 



R.G. Friend, 

109 Campbellfield Avenue, 
Campbelltown. 

N.S.W. 2560. 

I am submitting a version of the Fast 
Foward LOAD/SAVE program which 
was in your magazine some time ago. 

This version is for the VIC 20 and 
has several changes for the new 
format screen. 

(1) Lines 20 to 110 are allocated for 
your titles 15 letters max. 


(2) The spaces left are to allocate the 
correct amount of memory. 

(3) You can add to and subtract from 
this programme without changing 
all the other programmes on the 
tape. 

(4) Space has been left on each of the 
10 segments for 8K of memory 


which will cover at least the 3K 
expansion. 

You may find this of interest to your 
readers, there were too many 
changes just to list them so I have 
submitted a tape which was written on 
a standard VIC 20. 


20 FL1 > = " I" 

30 FL*<2> = " I" 

40 FL$C3> = " I" 

50 FUf<4> = " I" 

FL$<5> = " I" 

FL$<6> = " I" 

FL$<7>=" I" 

FL$C8> = " I" 

FL$c:9> = " I" 

FL$ 10 > = " I" 

PRINT-aBHBPRESS STOP OH TflPEttl" 

IFPEEK 192 > O0GOTO150 
PRINT 

PRINT" m DIRECTORY ** " 

PRINT" " 

FORQ=1TO22:PRINT" ? :NEXT:PRINT" " 

PRINT"| FILE | DESCRIPTION I 
FORQ= 1T022 : PR I NT " .? : NEXT : PR I NT " " 

FOR Q= 1 TO 18 s PR I NT " I " CHF'T < Q+64 > .? " I " .? FLT t. Q > : NEXT 
FORQ=1T022:PRINT" ”"? s NEXT 


60 
70 
80 
90 
100 
110 
140 
150 
160 
170 
180 
190 
210 
230 
240 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
405 
410 
420 
440 
450 
455 


PR I NT " SJ4HICH FILE DO YOU WANT?' 

GET C$:IF C$="" GOTO 280 
IF C$<"A" OR C$>"L" GOT0280 
BS=ASC C:f 't —-64 : F1 =E"z- 
FT=BS#8.3-8 

PR I NT " □£M$Q9SEARCH IHG FOR FILE 
PR I NT " NAMED " ; FL.4 •:! F1 > 

F'R I NT" SMSMflF'RESS FAST FORWARD ON 

IF PEEK < 37137 > O62GOTO350 

FT=TI+FT460 

IF TICFT GOTO 370 

POKE 19252 s P0KE37148241 

PRINT"a8HH»rafflPRESS STOP ON TAPE #1 

IF PEEK< 192>O0 GOTO 400 

POKES7148,14 

F’R I NT " L33M5JT APE IS NOW IN CORRECTS 
PR I NT " '»F ILE " s C $.? " " FL.T <■. F1 > 

PR I NT" SMS YOU CAN NOW LOAD 51 

PRINT"S THIS PROGRAM" 

END 


C $SPRINT 
S3 


£1*3" 

TAPE" 


POSITION FOR" 
OR SAVE " 


READY. 
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COMMODORE RANGE OF DISK 
PERIPHERALS 


VIC 1540 

Total Capacity 174K. 

Low Cost Single disk drive for VIC Computer. 

5 1/4” single sided, single density floppy diskettes. 


Total Capacity 

Sequential 

Relative 

Records/file 

Directory Entries 

Bytes per sector 

Sectors 

Tracks 

Blocks 

CBM 2031 


- 174,848 bytes per diskette 

- 168,656 bytes per diskette 

- 167,132 bytes per diskette 

- 65,535 

-144 per diskette 
-256 

- 17-21 
-35 

- 683 per diskette (644 free) 



Total Capacity 174K. 

Low Cost Single disk drive. 

5 1/4” single sided, single density floppy diskettes 


Total Capacity 
Sequential 
Relative 
Records/file 
Directory Entries 
Bytes per sector 
Sectors 
T racks 
Blocks 

CBM 4040 

Total Capacity 340K. 

Dual Disk Drive. 

5 1/4” single sided, single density floppy diskettes 


- 174,848 bytes per diskette 

- 168,656 bytes per diskette 

- 167,132 bytes per diskette 

- 65,535 

- 144 per diskette 
-256 

- 17-21 
-35 

- 664 per diskette 


Total Capacity 
Sequential 
Relative 
Records/file 
Directory Entries 
Bytes per sector 
Sectors 
Tracks 
Blocks 


- 174,848 bytes per diskette 

- 168,656 bytes per diskette 

- 167,132 bytes per diskette 

- 65,535 

- 144 per diskette 
-256 

-17-21 

-35 

- 664 per diskette 


CBM 8050 






commodore 




Total Capacity 1.060K. 
Dual Disk Drive. 


5 1/4” single sided, single density floppy diskettes. 


Total Capacity 
Sequential 
Relative 
Records/file 
Directory Entries 
Bytes per sector 
Sectors 
Tracks 
Blocks 


- 533,248 bytes per diskette 

- 521,208 bytes per diskette 

- 464,312 - 517,398 bytes per diskette 

- 65,535 

- 224 per diskette 
-256 

- 23-29 
-77 

- 2083 per diskette 
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2CBM 8250 


Total Capacity 

Sequential 

Relative 

Bytes per sector 
Sectors 

Recording Surfaces 

Tracks 

Blocks 

CBM 9090 


9,570,000 unformatted 
7,460,000 formatted 
full disk capacity 
full disk capacity 
256 
32 
6 

153 per recording surface 
29,162 


Total Capacity 7,500K. 
Hard Disk Drive. 

Total Capacity 

Sequential 

Relative 

Bytes per sector 
Sectors/Track 
Recording Surfaces 
CylindersfTracks) 
Blocks 


Continued on Page 32 



Total Capacity 5.000K. 

Hard Disk Drive. 

- 6,380,000 unformatted 

- 4,970,000 formatted 

- full disk capacity 

- full disk capacity 
-256 

-32 

-4 

- 153 per recording surface 
-19,442 


Total Capacity 2,100 K. 
Dual Disk Drive. 

5 1/4” double sided, single 
Total Capacity 
Sequential 
Relative 

Directory Entries 
Bytes per sector 
Sectors 
Tracks 
Blocks 


density floppy diskettes. 

- 533,248 bytes per diskette 

- 521,208 bytes per diskette 

- 464,312-517,398 bytes per diskette 

- 224 per diskette 
-256 

- 23-29 
-77 

- 2083 per diskette 

CBM 9060 



r~ 

■> 

fTlicroPro Design Pty.Ltd. 


Ml 



Specialising in the sales & support of 


J} 

\£\ 


peripherals and interfaces, including: 

• IEEE488-RS232 COMMUNICATIONS 

• RS232/CENTRONICS PRINTER INTERFACE 

• EPROM PROGRAMMER 

• WORD PROCESSOR PRINTER INTERFACE 

For full details and prices call or write: 

205/6 Clarke St Postal: P.O. Box 153 

CROWS NEST NORTH SYDNEY 

Ph:(02) 438 1220 NSW 2060 


PHOTOTYPESETTING 


★ Phototypesetting from text disks and/or 
cassettes generated from Commodore 
microcomputers. 

★ Complete art studio facilities 

★ Reports, software manuals, advertising, 
etc. etc. 

( 02 ) 4391827 

MERVYN BEAMBSH GRAPHICS 

82 Alexander St CROWS NEST, NSW 2065 
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USING THE VIC EXPANSION 
MODULE 


by Garry Mason 



Many people have purchased the cassette games such as Blue- 
Meanies, Car Chase, etc have had difficulty in running 3K games on 
VIC’s fitted with 8K/16K RAM packs. This is due to the way the VIC is 
initialised when the power is turned on. This determines the way in 
which memory space is allocated to the screen and colour memory, 
as well as the initialisation of all the appropriate pointers such as 
Start of BASIC text. 



When the power is first turned on, the 
reset line on the 6502 chip maintains 
the VIC in a reset state for a few 
seconds. This then forces the start of a 
routine at location $FFFC and $FFFD 
in memory. This then instructs the VIC 
to start a ‘cold start program located 
at $FD22. The operating system is set 
up so that the BASIC interpreter can 
then take over. The first thing this 
routine does is to checkto see if there 
is a games cartridge installed by 
looking at 5 locations from location 
$A004 for a sequence of characters, 
“aoCBM”. 

If this sequence is present, then the 
VIC will jump to a program that is 
pointed to by the contents of locations 
$A002 and $A003. Otherwise the VIC 
will proceed to set up the VIC chip, the 
operating system variables and 
intialise it. From here on in the system 
has to know what combination of RAM 
is being used and once this has been 
done the BASIC Interpreter can beset 
up. 

If there is any RAM found in 
locations $0400 to $1000 and none 
found at $2000 then - 

Set Start of BASIC to $0400 or 
1024, with the screen RAM to start 
at $1E00 or 7680 and the colour 
RAM to begin at location $9600 or 
38400. This is the case with either 
the 3K RAM or the Super 
Expander. 

If there is memory from $2000 with 
an 8K or 16Kcartridge inserted then- 
Set Start of BASIC at $1200 or 
4608, with the screen RAM to start 
at $1000 or 4096 and the colour 
RAM will be set up to $9400 or 
37888. With this system any 


memory not in a continuious flow 
from cartridge to cartridge will not 
be mapped in the system. This will 
include the 3K RAM cartridge and 
the super expander. 

In all othercasesfno RAM at$4001 
or $2001) the system is set up as 
follows - 

Set Start of BASIC to $1000 or 
4096, with the screen RAM at 
$1E00 or 7680 and the colour 
RAM in this case set up to start at 
$9600 or 38400. 

These movements of pointers is the 
reason why the VIC cassette software 
will produce very different results than 
desired with expansion over $2000. 

The Start of BASIC text pointer has 
also moved, but KERNAL corrects for 
this automatically when LOADing or 
SAVEing programs, so that BASIC 
programs will always LOAD into the 
correct place depending on what 
configuration the system is in. 

As you may know hi-resolution 
graphics can be accomplished on the 
VIC by moving the character generator 
into RAM as mentioned in the 
previous issues of the Commodore 
Magazine. This is restricted to the 
VIC’s internal RAM 4096 - 8192. The 
screen must reside here also. The 
reason for this is the restrictions in the 
addressing capabilities of the VIC 
chip. If we refertothe memory map for 
expansion over $2000, we can see 
that there is no room for any high 
resolution graphics areas. 

In order to use a program that is 
written for a standard VIC that 
includes either High Resolution 
graphics or a redefinded character 



set, the following programs can be 
run. These programs should be run 
before any other program. Basically 
what the routine does is to reset the 
machine so that the screen and other 
pieces of information are put back into 
the position that would be used by a 
VIC with only a 3K RAM Pack in place. 
So now the screen starts at the normal 
location starting at $1200 and BASIC 
starts at $2000. If the correction 
program is run it will free 3.5K of RAM 
- enough for a 20 x 22 character size 
screen, giving 160 x 176 pixels of 
resolution 28160 points. This is the 
same as that used by the super 
expander. 

Lines 50 and 55 of the first program 
will automatically load a file called 
“prg” from disk The command string is 
contained in a$ on line 50 in program 
2) and can easily be changed to any 
ten character command. The only 
modification needed to the original 
program is to check for POKE 56 and 
52 and remove them. This is because 
the values that would be put in these 
locations would not apply to the new 
set up. They are also no longer 
required as there is now no need to 
protect the graphics area, as it is no 
longer contained in part of the BASIC 
working space. Do not try incorporating 
this program into the original program 
as this will not work, as a 'warm start’ is 
done to set all the parameters. 
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PROGRAM NUMBER 1> 


10 POKE 642,32 sREM CHANGE START OF MEMORY 

28 POKE 648,30 :REM SET SCREEN MEMORY PAGE TO $1E00 

30 P0KE36869,240sREM RESET SCREEN & CHR. MAP POINTERS 

40 POKE 36866,PEEK<36866>OR 123 : REM FIX OTHER BIT TO SCREEN POINTER 
50 A$=”Lr"+CHR$ <34 > + "PRG"+CHR$< 34 > + ",3":A=LEN < A$ > 

55 POKE 198,0: FOP.C= 1 TO A : POKE 630+C , ASC < MI D$ < A$ , C , 1 > > s NEXTC : 

POKE630+1+C,13:POKE 198,A+1 

60 POKE0,108 sPOKEl,0 :P0KE2,192: SYS 0 sREM DO BASIC COLD START 
READY. 


PROGRAM NUMBER 2>. 


10 priKE 642.32 sREM CHANGE START OF MEMORY 

20 POKE 643,30 sREM SET SCREEN MEMORY PAGE TO *1E©0 

30 P 0 KE 36869 , 240sREM RESET SCREEN & CHR. MAP POINTERS 

40 POKE 36866,PEEK<36366?•>OR 128 : REM FIX OTHER BIT TO SCREEN F'OINTER: 
50 POKE0..108 sPOKEl ,0 :P0KE2,192: SYS 0 sREM DO BASIC COLD START 
READY. 


4022 PRINTER NOTES 


First I’d like to mention that a new ROM is available for the 3022 
printer. The901472-07(Commodorepartnumber931172), replaces 
the original-03 ROM and the subsequent-04. Recall, the-03 forced 
a carriage travel for each line feed and the -04 would occasionally 
lock into lowercase. The-07 fixes all previous bugs, but due to 3022 
mechanics it can’t give bi-directional print. For details on the -07, 
contact your nearest Commodore Dealer. 



Now on to the 4022. Faster, sleeker, 
quieter, a nicer character set, plus all 
the features of the 3022 make the 
4022 a better printer. The 4022 P has 
since replaced the 4022. It has all the 
features of it’s predecessor with bi¬ 
directional print capability added. This 
new ROM for4022 printers to allow bi¬ 
directional printing, is available for 
retrofitting. However, like the 3022 
printer, Commodore had two goes at 
getting it right The first attempt was 
325301-01, but had the problems of 
paging and print formatting and was 
successfully replaced with a 901631- 
02 (Commodore part number 931173). 

The manual has a few minor 
oversights which we’ll clear up now: 

1) Page 31 states, “...144 steps 
per inch, so a declared value of 
18 produces 8 lines per inch.” It 
should be read, “...195 steps 
per inch, ...28 produces 8 lines 
per inch.” 


2) Page 31 also says, 
“PRINT#6,CHR$(144) produces 
lines spaced one inch apart.” 
Secondary address 65 does not 
accept values over 127. Therefore 
CHR$(127) will result in maximum 
line spacing (approx 1/2 inch). 

3) Next it says, “default value is 24 
for the standard 6 lines per 
inch.” Change this to 36. 

Here are some line spacing values 
for secondary address 6. (Ipi = lines 
per inch): 


CHRS Value 

Result 


Comment 

1 

195 

Ipi 

;characters will overlap 

7 

25 

Ipi 

; characters still overlap 

12 

16.6 

ipi 


14 

14.2 

Ipi 


21 

10 

Ipi 

characters stop overlapping 

28 

8 

Ipi 


36 

6 

Ipi 


64 

5 

Ipi 


66 

4 

Ipi 


97 

3 

ipi 



The only other difference we’ve 
found occurs when “skipping” from 
one formatted field to the next. Like 
the 3022, the 4022(P) supports 
‘printing data according to a previously 
defined format’. In order to “skip” from 
one field to the beginning of the next, 
it was necessary to send a CH R$(29), 
or ‘Cursor-Right". This still applies to 
alpha fields, but when sending 
numerics to secondary address 1 on 
the 4022, the skip character is no 
longer needed. It seems that the 4022 
recognises the cursor-right that the 
PET/CBM tags to the end of numerics 
and numeric variables when output. 
For example: 

3022: PRINT# 1 ,A:CHR$(29);B;CHR$(29);C 

4022: PRINT# 1,A;B;C 

If the cursor-rights are sent to the 
4022, the printer will skip two fields 
instead of just one. 
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IDENTIFYING THE DISK DRIVE 


Frequently it is necessary and/or desirable for a program to 
determine the type of disk system that is operating, without 
intervention bv the operator. 


The following ideas can be incorporated 
into your program to tell which disk 
drive is being used. 

To read a byte from the disk 
memory, use the following code. 
Further information on the'MEMORY- 
READ’ instruction is available in the 
DOS manual page 52. 




10 OPEN 15 8,15 ;Open secondary address 15 

20 PRINT#15,“M-R”CHR$(254)CHR$(255) 

;Read value from $FFFE 

30 GET# 15,AS 
40 A=ASC(A$) 



Get value as AS 
A equals ASCII value 


The following chart shows the 
ASCII equivalent of the byte that is 
located at address SFFFE in the 
indicated disk system. This may be 
used to differentiate the disk drive 
being used. 


DISK SYSTEM 

2040 

4040<1 JAN 82 
4040>1 JAN 82 
8050 REGULAR 
8050 W/SUPER DOS 
8250 

9060/9090 

2031 



BYTE AT SFFFE 

HEX 

ASCII 

D6 

214 

OB 

11 

OA 

10 

E9 

233 

11 

17 NOTE 1 

11 

17 NOTE 1 

36 

54 NOTE 2 

B6 

182 


NOTE 1: 

In 8050/8250 systems that are 
equipped with the “SuperDOS”, the 
system type may be determined by 
reading address $1OAC. An 8050 will 
return a ‘1’, and 8250 will return a ‘2’. 
NOTE 2: 

9060/9090 systems may be different¬ 
iated by reading address $109D. A 
9060 will return a‘4\ a 9090 will return 
a‘6’. 
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SOFTWARE CONTROLLED 

IMMEDIATE MODE. 


By Dirk Williams. 

Most people who are familiar with Commodore computers, will 
realise that there are two basic modes of computer operation:- 


1) Immediate mode - from which 
programs are entered, edited, 
saved or loaded, eta 

2) Program mode - where the 
computer is under the control of 
the currently residing program. 
Think how nice it would be if one 

could combine the two modes, thus 
allowing programs to write themselves, 
edit themselves, etc during execution. 
Thanks to the keyboard input buffer 
contained in the BASIC workspace in 
all machines, this is entirely possible. 
The keyboard input buffer is used to 
store the values of any keypresses, 
before they are serviced. If you use 
the keyboard from immediate mode 
their corresponding service functions 
are executed almost immediately. 
Service functions may vary from 
printing a character at the current 
cursor position to clear screen, eta 
You may have that if you use the 
keyboard during program execution 
(ie. - press CLR/HOME) - the 
corresponding function will be serviced 
when the program finishes and 
returns you to immediate mode (ie. - 
the screen will cleai). Note that GET 
and INPUT statements use the buffer, 
so any keypresses stored at the time 
of their execution will be removed. 
You may also have noted that a 
program line may be entered, or the 
program may be RUN simply by 
pressing return (executing a CHR$(13)) 
when the cursor is on the same line 
(screen) as the abovementioned. 

To achieve our aim we must firstly 
print onto the screen any lines or 
commands we wish to be entered, or 
executed. Next we must make the 
computer think that we have pressed 
return by inserting the keyvalue into 
the input buffer. When the computer 
moves back into immediate mode it 
will service the keyboard buffer, as 
though you had pressed return — and 
will enter any lines or commands, onto 
the screen line, where the cursor is at 


the time. The buffer is 10 characters 
long, but this can be altered on the 
CBM 8032 and the VIC 20. There is 
also a location in zero page that 
contains the number of keystrokes 
stored in the buffer. The locations are 
as follows:- 

POINTER TO NUMBER OF KEYSTROKES IN 
BUFFER: 

BASIC 4- $009E 158(decimal) 

BASIC 2- S009E 158(decimal) 

VIC 20- S00C6 198(decimal) 

POINTERTO START OF KEYBOARD BUFFER 

BASIC 4 - $026F 623(decimal) 

BASIC 2 - S026F 623(decimal) 

VIC 20- $0277 631 (decimal) 

POINTER TO LENGTH OF KEYBOARD 
BUFFER 

CBM 8032 - $00E3 227(decimal) 

VIC 20 - $0289 649(decimal) 

The following program demonstrates 
the various methods involved in the 
technique. The program is a cassette 
based address book, which writes 
data statements into which the 
addresses are inserted. 

Lines 1000 onward contain the 
data statements. Line 1000 is a 
pointer DATA statement that contains 
the current highest DATA statement 
line number- it is updated after every 
entry. Note that you must re-save the 
program if any entries have been 
made (main menu option 3). 

Lines 500 - 570 and 900 - 920 are 
used as an input routine that uses 
GET statements and will not crash if 
you inadvertantly press return. Use 
cursor-up to move to a previous entry 
field when entering - DEL key to 
delete - CLR/HOME to abort entry. 
POKE 167,0 makes the cursor flash 
during entries - this must be restored 
to 1 (POKE 167,1) to stop flashing. 

Lines 800 to 840 prints the lines on 
the screen as if you had typed them in 
- followed by a RUN. Line 835 makes 
the computer think that 6 RETURN 
keypresses have taken place. When 


the program isstopped in line840, the 
computer will input the lines as 
though you had pressed return when 
the cursor is on each of the lines. 
When it comes to the RUN which has 
been printed on the screen - the 
computerwill run the program again. If 
in your programs you wish the 
program to continue running from a 
specific line number - then print 
RUNxxx(where xxx is the line number) 
instead of just RUN. Note that by 
pokeing 158,7 in line 835 we tell the 
computer that there are 7 keypresses 
to service - it is merely enough to fill 
the buffer with carriage returns. 

Line 190 demonstrates a different 
approach in that the letters R, V and N 
followed by a carriage return (chr$(13)) 
are put into the keyboard buffer - so 
that the whole word RUN will appear 
typed in- and will be serviced afterthe 
program has SAVED itself. 

I hope this has made things a little 
clearer, if not well - you still have a 
handy program to use. 
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5 REM ### BV DIRK WILLIRMS ### 

10 CLR:DIMX*<5>:PRINT"□ CASSETTE ADDRESS FILE" 


S 1 ■_RECALL" SPRINT 

J3 2 ■- . . ADD" SPRINT 
3 3 ■---RESAVE PROGRAMME"SPRINT 
53 4 ■- - - ESCAPE" SPRINT 
INPUT OPTION NUMBERS " 


20 PR I NT ".TOMTOM 
30 PRINT" 

40 PRINT" 

50 PRINT" 

60 PR I NT " 515153 
70 POKE167 r 0 

80 GETH# s IFH#O n 1 " ANDHSO " 2 " ANDH#<> " 3 " ANDH$<> " 4 " THEN80 


85 POKE167.r 1 

90 PRINTH#sIFH#<>"4"THEN180 

100 PR I NT "□5153 ENSURE THAT PROGRAMME HAS BEEN" 

110 PRINT" RECSRVED IF ANV ADDITIONS HAVE" 

120 PRINT" BEEN MADE DURING USE" 

130 PRINT"3253 PRESS RETURNS TO RETURN TO MENU" 

140 PRINT" PRESS ANV OTHER KEV TO ESCAPE" 

158 GETH#sIFH#=""THEN150 
160 IFH#=CHR#<13 > THEN10 


178 U sSVS64790 

180 I FH#<:> " 3 " THEN210 


ISO 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
315 
320 
330 


POKE 158.. 4 s POKE62382 s P0KE624 r 85 s P0KE625 .78 s P0KE62613 
PRINT"□"s SAVE"ADDRESS FILE" s END 
IFH#<>"1"THEN600 

PRINT"□ RECALL OPTION MENU" 

PR I NT " SSm S 1 ■- - - NAME " s PR I NT 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT " H5I53 


S 2 ■-..ADDRESS <STREET>"SPRINT 
S 3 ■-.-SUBURB"SPRINT 
a 4 ■-..POST CODE-<STATE>"SPRINT 
a 5 ■--.TELEPHONE NUMBER"sPRINT 
a 6 B.--RETURN TO MAIN MENU"sPRINT 
INPUT OPTION NUMBERS " 


POKE167 r 0 

GETH# s I FH#<> " 1 " ANDHTO " 2 " ANDH*<>" 3" ANDH#C> " 4 " ANDH#<> " 5 " ANDHTO 
POKE 167.. 1 s T=VAL < H# > 

IFH#="6"THEN1O 


RESTOREsREADLsIFL=1OOOTHEN10 


340 L= <L-1000>X10s C=0 

341 IFT=1THENDT#="NAME" 

342 IFT=2THENDT#="ADDRESS" 

343 IFT=3THENDT#="SUBURB" 

344 IFT=4THENDT#="POST CODE" 

345 IFT=5THENDT#="TELEPHONE#" 

350 PRINT" nglBPjlgW INPUT " ;DT#;" OR PARTs" 

360 IFH#="1"ORH#="2"THENZ=29 

365 IFH#="3"THENZ=15 

366 IFH#="5"THENZ=15 


"6"THEN310 


367 IFH#="4"THENZ=20 

370 RT#=""sN=0s X=1 s 7=7s GOSUB500sIFH#="THEN22© 

380 PRINT"□ SCANNING RECORDSHHH" 

385 PRINT" I I " 

386 FORG=1T06 

387 PR I NT " I " r TAB 38 > ? "I " s NEXT 

388 PRINT" l_ J " 

389 PRINT"aEflMHa«BHSIH ADDRESS FILE - RECORD RECALL OPTION" 

390 F0RK=1T0L 

4 10 FORQsr 1T05 : READX#<Q > s NEXT 
430 V#=LEFT#< X# <T > r LEN <RT#>> 

440 IFV#=RT#THEN450 

386 FORG=1T06 

387 PRINT" | " f TAB <38>;" I ":NEXT 

338 PRINT" |_J " 

389 PR I NT" ADDRESS FILE - RECORD RECALL OPTION" 

390 F0RK=1T0L 

410 FORQ=1T05:READNT<Q >:NEXT 
430 VT=LEFT $ < X* < T :> r LEN < RT $ > > 

440 IFV$=RT fTHEN450 

44 1 NEXT : IFC=OTHENX= 10 : V=7 : GOSUB90O : PR I NT " RECORD DOES NOT EX I ST " .? CHRT < 7 > 
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442 PRINT"9 FINISHED ! ! " ,:CHR*< 16> ;CHR*<7> 

443 PR.INT"g§3 PRESS flHV KEY WHEN READY" 

444 GETH*:IFH*=""THEN444 

445 GOTO220 


450 FORH=1T05:X=5:Y=5+fl:GOSUB900:PRINTX* <A >.? :G0SUB92©:NEXT:C=C+1 
460 GETC* 

470 X=8:Y=17:GOSUB900:PRINT"PRESS 35PACE1 TO CONTIHUE":FORTT=0TO200 s NEXT 

471 IFC*=" "THENGOSUB900:PRINTCHR*<16>:G0T0441 

475 X=8:Y=17:GOSUB900 : PRINT"PRESS SPACE TO CONTINUE":FORTT=0TO2©0 : NEXT 
478 IFC*=" "THENGOSUB900:PRINTCHR* < 16 > :G0T0441 
480 GOTO460 

500 Y=Y+1:GOSUB9O0:FORV=1TOZ:PRINT":NEXT:Y=V-1:GOSUB900:POKE167,0 
505 PRINTRT*.:CHR*<16?; 

510 GETH* : IFH*=" "ORH*="a"ORH*="U"ORH*="H"ORH*="l|"THEN510 
515 IFN=1ANDH*="□"THENPOKE167,1:RETURN 
520 IFH*=" g" THENPOKE167,1:RETURN 

540 IFH*=C-HR*< 20 > ANDLEN<RT* >>0THENPRINTH* t :RT*=LEFT* < RT*,LEN <RT* >-1> : G0T0510 
550 IFH*=CHR* <13> ANDLEN < RT* > >0THENPOKE167,1:RETURN 
560 IFLEN < RT* > +1 >ZTHENPR INTCHR* < 7 > : G0T0510 

565 I FH*=CHR* < 20 > ORH*=CHR* < 13>ORH*=" □" ORH*= " a" ORH*= " U" ORH*= " ||" THEN510 

570 RT*=RT*+H*:PRINTH* t : G0T0510 

600 RESTORE:READL : L1 = <L-1000 >/10:L=L+10 

610 PRINT"3 ADD RECORD - THERE ARE LI"RECORDS" 

62© PRINT" BMW NAME:a" 

630 PRINT" ADDRESS:a" 

640 PRINT" SUBURB:a" 

650 PRINT" POST CODE:a" 

660 PRINT"TELEPHONE#:a" 

670 RT*=X*<1>:N=0:X=11:Y=4:Z=29:GOSUB5O0 

675 IFH*="9"THEN10 

676 X*CD =RT* 

680 RT*=X* < 2 >:N=1:X=11:V=6:Z=29:GOSUB500 

685 IFH*="g"THEN10 

686 X* < 2 > =RT* 

687 IFH*="□"THEN670 

690 RT*=X*<3>:N=1:X=11 :Y=8:Z=15:GOSUB500 

695 IFH*="g"THEN10 

696 X* < 3 > =RT* 


697 

700 

705 

706 

707 
710 

715 

716 

717 

718 
720 

730 

731 

732 
800 
810 
811 

813 

814 

815 

816 
817 
830 
835 
840 
900 
920 

1000 


IFH*="□"THEN6S0 

RT *=X* < 4 >:N=1:X=11:Y=10:Z=20:GOSUB500 

IFH*="g"THEN10 

X*<4>=RT* 

IFH*="□"THEN690 

RT*=X* < 5 >:N=1:X=11:Y=12 :Z=15:GOSUB500 

IFH*="g"THEN10 

X*<5>=RT* 

IFH*="□"THEN700 

PRINT . . . 

PR I NTX= 11 : Y=20 : GOSUB900 : PR I NT " ARE YOU SURE : PUKE 11>. , 0 

GETH* : I FH*0" Y " ANDH*0 " N " ANDH*<> " 9" THEN730 
POKE167,1:1FH*="g"THEN10 

IFH*="N"THENGOSUB900:PRINTCHR*<16 >:GOTO670 
RESTORE : READL :L=L+10 : PR I NT " ZlfiSSS" 

PR INTL" DATA " ? X* < 1 > 

PR INTL+2" DATA " X* < 2 > 

PR INTL+4 ; " DATA " X* < 3> 

PR INTL+6 ; " DATA " X* < 4 > 

PR INTL+8.? " DATA " X* < 5 > 

PR I NT " 100ODATA " .f L 
PRINT"RUN" 

PRINT" gBM " 

POKE158,7:FORT=0TO7:P0KE623+T,13:NEXT:END 
STOP 

PPINT"g" : : FORS= 1 TOX : PRINT"?!" : NEXT :FORS=lTOV :PRINT"a" : : NEXT : RETURN 
FORLF='lTO30—LEN<X*< A> > sPRINT" " ? :NEXT sPRINT" " :RETURN 
DATA 1000 


READY. 
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MACHINE LANGUAGE 
AUTO-LOCATION 


When a program like Supermon or Tinymon loads into its computer 
and RUN is given, it builds a copy of the “real” program in high 
memory. There’s a need to do this: different computers have 
different memory sizes, and we want to find the top of memory 
wherever it is. Also, the computer might already have something also 
near the top of memory (such as a wedge program) and we want the 
new program to fit neatly below it. 


This calls for an auto-location 
program. The object program must be 
packed into high memory. This is often 
more than just moving the program, 
since some things may need to be 
changed with the move. If you have a 
program that uses only branches- no 
jumps, no in-program subroutines, no 
tables - you may be able to get away 
with a simple move operation. But any 
instruction that uses an in-program 
absolute address: jumps, subroutine 
calls, and tables - will need to be 
adjusted. 

We need to build a relocatable 
program module. Something that 
says, “This byte is normal so we may 
just move it; but that pair of bytes is an 
address and must be recalculated for 
the new location.” 

Ground Rules. 

We need a scheme which marks 
addresses so that the proper arithmetic 
may be performed. There’s one 
requirement as to how you write the 
program: it may be summarized as “all 
addresses must be in one piece”... 

The rule makes sense: it would be 
difficult to perform arithmetic on an 
address whose two bytes were 
scattered in different parts of the 
program. For users with assemblers, 
the rule translates to: never use the < 
or gt functions for high and low byte. 

So if we wanted to place the 
address of TABLE into indirect 
address IN DAD, we would avoid 
coding: LDA #<TABLE : STA INDAD : 
LDA #>TABLE : STA INDAD+1. 
Instead, we’d define the table address 
in memory with TABLAD.WORD 
TABLE and perform the above setup 
with LDATABLAD : STA INDAD : LDA 
TABLAD+1 : STA INDAD+1. We’ve 
used four more bytes but gained a 


major benefit the two bytes represent¬ 
ing the address of TABLE are now 
stored together (at TABLAD) and we 
can adjust this address easily when 
we wish to relocate. 

The Method. 

The way we build a relocatable 
module is quite easy. Any time we see 
an address that will need relocation, 
we place a zero above it As we repack 
the program (from the top down) the 
zero will signal that a relocatable 
address follows. That’s all very well, 
but what do we do with real zeros? 
There will be many zeros in the 
program itself, and we don’t want 
them to trigger a false relocation 
calculation. In this case, we change 
the zero to two zeros in the 
relocatable package. The relocation 
program will spot this and change it 
back to a single zero. In order to do 
arithmetic on the addresses, we need 
to know where they are pointed in the 
first place. To relocate from $1000 to 
$4000, for example, we need to add 
$3000; but we must know that we are 
starting from $1000. I use the 
following convention: adresses are 
written so that the top of the program 
plus one is $0000 - that is, the last 
byte of the relocatable program is 
$FFFF. The program can’t really go 
there, since that’s ROM space, but it 
makes the arithmetic easy. We can 
look at an address in the relocation 
package as a signed number address 
$FFC0 can be viewed as “64 bytes 
from the top of the program.” If our real 
top-of-program turned out to be 
$8000, which would be correct for a 
32K machine, we would translate the 
sequence 20 CO FF 00 to 20 CO 7F 
...note that the zero disappears; it’s the 
relocation flag. How did we get the 



new address $7FC0? By adding the 
relocation address, $FFC0, to the top- 
of-program, $8000. 

Generating the Relocatable 
Program. 

How do we manufacture this 
package with zeros added and 
addresses recalculated, ready for 
relocation? With an assembler ifs 
quite easy. 

First, we assemble two versions of 
the program at two different locations. 
That’s easy enough to do: we just 
change the *= statement at the start 
of our source code. 

Then we run a simple compare 
program which compares the two 
object programs we have assembled, 
starting from the top. Each matching 
byte is copied into the relocation area 
unchanged; if it’s a zero, an extra zero 
is added. If the bytes don’t match, we 
have a relocatable address: in this 
case, we insert the zero plus the 
recalculated address into the relocation 
package. It’s an easy job: my “relocate 
builder” is a BASIC program of about a 
dozen lines. 

Stopping. 

As we work down from the top we 
need to detect when we have reached 
the end of the program: this is true of 
both the relocate builder and the 
relocating program itself. There are 
many easy ways of doing it The 
program can test to see if the last 
address has been reached. Alternatively, 
we can put some sort of “flag” into the 
coding itself to detect the end. In 
TINYMON, I use a value $BF which is 
never used in the program, as a simple 
detection. A more complete method 
might be to use a zero with a value of 1 
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stored below it Ifs up to you: 
whatever works is OK. 

VIC Note. 

In the VIC, we have one more 
problem to solve. We can find the top 
of memory (locations $37 and $38) 
but our program might fall into 


different memory space, depending 
what's plugged in. Use pointers to find 
your own program (try $2D and $2E) 
and everything should work out nicely. 

Summary. 

You can pick apart the code of 
SUPERMON or TINYMON and see 


how ifs dona You can develop your 
own programa But if you understand 
the principles of a relocating program 
package, you can develop significantly 
more useful programs which will 
adapt to a wider variety of machine 
configurationa 

Editors Note. 

The machine code disassembly to 
follow is Jim Butterfielcfs relocator 
modified slightly by Dave Hook for use 
with his VICIoader for PET/CBMs 
Dave eliminated the JMPs and JSRs in 
Jim's original utility so that the 
relocator can be relocated For 
VICIoader, it starts at $0640, but you 
can move it anywhere; higher if you 
want more BASIC underneath it, or 
lower for larger object programs. 

Notice that the relocator starts with 
the end of the object program since 
this will be the first byte to be packed 
into high memory. This is conveniently 
pointed at by the Start of Variables 
pointer minus 1, which is set on 
completion of the LOAD (provided it is 
saved properly). 



0400-063F BASIC portion 


06 40 

A5 

2A 

LDA 

$2A 

0642 

85 

IF 

STA 

$1F 

0644 

A5 

2B 

LDA 

$2B 

0646 

85 

20 

STA 

$20 

0648 

A5 

34 

LDA 

$34 

064A 

85 

21 

STA 

$21 

06 4C 

A5 

35 

LDA 

#35 

064E 

85 

22 

STA 

$22 

0650 

A0 

00 

LDY 

#$00 

0652 

A5 

IF 

LDA 

$1F 

0654 

DO 

02 

BNE 

$0658 

0656 

C6 

20 

DEC 

$20 

0658 

C6 

IF 

DEC 

$1F 

06 5A 

B1 

IF 

LDA 

($1F),Y 

065C 

DO 

3C 

BNE 

$06 9A 

065E 

A5 

IF 

LDA 

$1F 

0660 

DO 

02 

BNE 

$0664 


(title, sys address, etc) 

;store copy of 
;Start of Variables 
;pointer (last byte of 
;object program + 1). 

;store copy of 
;Top of Memory 
;pointer (MemTop) 

;zeroise Y index 
;dec pointer to last 
;byte of object prog. 

•(1st byte to be 
;packed) 

;get obj. prog, byte 
;not 0, goto $069A 
;if 0, dec pointer 
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Continued from page 27 


0662 

C6 

20 

DEC 

$20 

0664 

C6 

IF 

DEC 

$1F 

0666 

B1 

IF 

LDA 

($1F) ,Y 

0668 

F0 

21 

BEQ 

$06 8B 

066A 

85 

23 

STA 

$23 

066C 

A5 

IF 

LDA 

$1F 

066E 

DO 

02 

BNE 

$0672 

0670 

C6 

20 

DEC 

$20 

0672 

C6 

IF 

DEC 

$1F 

0674 

B1 

IF 

LDA 

($1F),Y 

0676 

18 


CLC 


0677 

65 

21 

ADC 

$21 

0679 

AA 


TAX 


067A 

A5 

23 

LDA 

$23 

067C 

65 

22 

ADC 

$22 

067E 

48 


PHA 


067F 

A5 

34 

LDA 

$34 

0681 

DO 

02 

BNE 

$06 85 

06 83 

C6 

35 

DEC 

$35 

06 85 

C6 

34 

DEC 

$34 

06 87 

68 


PLA 


0688 

91 

34 

STA 

($34) ,Y 

06 8A 

8A 


TXA 


068B 

48 


PHA 


068C 

A5 

34 

LDA 

$34 

068E 

DO 

02 

BNE 

$06 92 

06 90 

C6 

35 

DEC 

$35 

06 92 

C6 

34 

DEC 

$34 

0694 

68 


PLA 


0695 

91 

34 

STA 

($34) ,Y 

0697 

18 


CLC 


0698 

90 

B6 

BCC 

$0650 

06 9A 

C9 

BF 

CMP 

# $BF 

06 9C 

DO 

ED 

BNE 

$06 8B 

06 9E 

A5 

34 

LDA 

$34 

06 A0 

85 

30 

STA 

$30 

06A2 

A5 

35 

LDA 

$35 

06A4 

85 

31 

STA 

$31 

06A6 

6C 

34 00 

JMP 

($0034) 

06A9 

BF 




06AA 

o o o 





;and get next byte 
;0? yes, true zero * 
;no, relocatable addr 
;store high byte in 
;$23. dec pointer 
; and 

;get next byte 
;recalculate lo addr 
;using MemTop lo 
;result in .X 
;recalculate hi addr 
;using MemTop hi 
;result on stack 
;dec MemTop 


;retrieve hi addr 
;pack at ($Memtop) .Y=0 
;retrieve lo addr 
;* save on stack 
;dec MemTop 


retrieve byte 
pack at ($MemTop) ,Y=0 
rather than 
a JMP 

last byte? 

no, goto $068B * 

yes, set 

Bottom of Strings 
= MemTop 
pointer 

jmp to program 

end detector of obj prog 

start of object prog 
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DISK UTILITIES 


DISK MEMORY DISPLAY - DOS 2.6 

100 PRTNT"TIbDISK MEMORY DISPLAY JIM BUTTERFIELD" 

165 L=S : I FF'EEK<32848> =4THEHL= 16 

116 DATA77,45,87,0,18,16,162,0,139 

12© DATA157,64,66,232,224,16,263,245,103,2,252 

130 FORJ=1T09:READX:C*=C*+CHR*<X>sHEXTJ 

140 FORJ=1TO11:READX:D$=D*+CHR*<X>:NEXTJ 

150 F‘R I NT" SJTHERE ARE TWO PROCESSORS:" 

160 PRINT" 1> THE IEEE PROCESSOR.:" 

170 PRINT" 2> THE DISK PROCESSOR.:" 

130 INPUT "WHICH DO YOU WANT TO PEEK <1 OR 2>".:D 
196 PRINT"INPUT MEMORY ADDRESS" 

200 PRINT"IN HEXADECIMAL:":OPEN1,8,15 
216 P*=CHR* <4 > +CHF!*< 16> : R$=CHR$ < 224 > 

220 PRINT" >HH □" 

230 INPUTS* 

240 PRINT"!]"; : IFLEN<2*>O4THENGOTO220 
250 FORJ=1T04:V=ASC<MID* < Z*,J >> 

266 IFV<5STHENV=V—43 

270 IFV>64THENY=V-55 

230 IFYC0ORV>16GOTO220 

290 V < J > =V : NEXT J : K=0 : PR I NT " illHH" ; 

306 U=V < 3 > #16+V < 4 > : V—V < 1 > # 16+V < 2 !> 

310 IFDO2GOTQ360 

320 PR I NT# 1 , C*.: CHRS < U > .: CHR$ < V > .: D$ 

330 PR I NT# 1, " M-W " .: P$ ; CHR* < 1 >.: R$ 

340 PR I NT# 1, " M-R " ; P* : GET# 1 , X* : I FX*=R*G0T034® 


350 

36© 

370 

330 

390 

40 © 


IJ=64 : V= 13 

F'R I NT# 1 . " M-R " .: CHR* < U > ; CHR* < V > 

GET#1,X*:IFX*=""THENX*=CHR*<0> 

PRINT” " :X=ASC<X*>/16 

F OR J = 1T 02 :XX=X :X=<X—X'i>'^16 : IFXX>9THENXX=XX+7 
PR INTCHR* < XX+43 > ; sNEXTJ 


410 U=U+1:IFU=256THENU=0:V=V+1 
420 K=K+1:IFKCLGOTO360 
43© V<0>=0:V<4>=Y<4>+L:J=4 

44© IFY< J> 15THEHV*:. J> =V< J> — 16 : J=J — 1 :V< J>*V< J> + 1 :G0T0440 
456 PRINT rF'RINT" " : :FOR J=1T04 :Y=Y< J> : IFV>9THENV=Y+7 
460 PR INTCHR* < V+43 > .: : NEXT J : PR I NT " :GOTO220 


READY. 


COPY/ALL will copy relative files correctly. It replaces COPY.ALL which contains a bug; it does not replace COPY 
ALL which is much faster if relative files are not involved. 

The Basic listing mixes upper and lower case for readability; type it in without shifting. There should be lots of space 
for the following Machine Language program. 


100 

pr i n+." C clr D DI SK. COPY. ALL JIM BUTTERFI ELD " 


1 10 

dim L2<232>,L1X<232>,N$<232>,TX<232>,T*<4> 


120 

data XXX,SEG,PRG,USR,REL 


130 

+or J=0-to4 : r e-scIT* < J > : next-J 


140 

inru+"FROM UNIT SC3 le++]":F 


15© 

•3C'SUfc>800 


160 

m 

G 

II 

* 

LL 


170 

input"TO UNIT 9C3lett3 M ;T 


130 

•=josub300 


190 

T*=D* 


200 

itF=T eric4F$=T$thenrun 


210 

*iosub360 


220 

c lose1s c lose15:open 15 r F,15:print#15 "i"+F $ 


230 

gosub33@ : i t E then stop :oioto220 


240 

input"PRTTERN *C3 left]";P* 


250 

tor J = 1 to len < P$ > : i f m i c4$ < P$ r J r 1 '> O " *" thenne t J 


260 

P1 = J-1 : i tP 1 >0thenP$= lett$• F$ , P1 > 


270 

print"HOLD DOWN r V r OR r N r KEV TO SELECT" 


230 

print"PROGRAMS TO BE COPIED... 


290 

open 1 r F r 3 , " $ " +F$ 


300 

•2iosuta330 : i tEthenstop :cjoto220 

Continued 
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310 ' 3 e+#l,R*:fl=ase<R*+" " > 

320 i -PR= 1 orR=65thenL1=253 : «joto358 
330 itR=67ther»Ll=761 2ojoto350 
340 c. lose 1 :pnnt"????? M :stop 
350 -Por-J= 1 toL 1 = cjet# 1 , X $: next J 
360 H=0s N1=0 sR=255:Z=39 

370 N$= M ” :gosub1020 : T9—V— 123 : gosub 1000 

330 J1=1 = Z$=chr$ < 160 > : forJ= 1 -to 16 : ^et# 1 , X$ : N$=N$+X$ 

390 i-PX*<>Z*thenJl=J 

400 nextJ 

410 c5Osub990:LlZ=Y 

420 gosub986:gosub986 

438 L2=X+256*Y 

440 i -PT9< 1 orT9>4goto548 

450 i tP 1 >0then i -PP$0 le-Pt$ < H$ , P1 > goto540 
460 pr i n"tN$ ? ” M j?T^<T9> 

470 p=peek < 151 > andR 

480 cjetZS : i +Zt= " " andP<255«joto520 

490 i -PZ$= " V " or*Z$= " H " thenZ=asc < Z$ > : R=255 : 9oto520 
500 i -PZ$=chr-:* < 13 > thenR=0 : cjotc520 


510 

528 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

630 

690 

700 

710 

720 

730 

740 

750 


ojoto480 

i -PZ<80thenpr i nt" C down 3 Cdown3 " 2-gjoto540 

H=H+1 : L2 < N > =L2 : < W > = le-Pt$ < N$, J1 > : TX < N > =T9 : L1X < N > =L 1X 

i -fST>0«jo“to570 

N1 =H 1 +1 : i -PH 1 =3thenN 1 =8 s cioto370 
•^osubI860:-iiot:o370 

«- lose 1 :c. lose 15 :pr int " :+ M * $ :4-" 
forJ=ltoN 


L2=L2 < J > :TX=TX<J> s i +L>L2-uoto640 

print"'^ output disk •full” 

iriput"do you have a. new one" ;Z$ 

i fasc < > 0*39thenend 

•^osubS60 sofO*to598 

open 14 , F , 15 2 open 15 , T r 15 

pr- i n+H$< J > " le-Pt$< " ".-17— len< < J > *> > ; 

open3, F , 3 ,F*+"s“+N* < J > + " , "+T* <TX> 

i nput# 14 , E , E$ , E1 , E2 : «josub346 : i tEthenpr i rrt" " • E$ ; E : cjoto750 

i -pTX=4*ther»open4 , T , 4 , T$+ ” : " < J > + " , L , " +chr$ < L1 X < J > > : cjoto70R 

open4 , T , 4 , T$+ " : " +N* < J >+ " , " +T* < TX > + 11 , W " 

L=L-L2 : ojosub330 : i -PEthenpr i nt " *** " ; E^ ; E s «joto750 

i-PTX=4thensys3312 2«joto730 

sys3272 

H$ < J > = "": ^osub830 : i -PEthenpr i nt:" *:**.*. " ; E^.? E s goto758 
priri-t" C down 3 " 

c lose4 :c lose3 :c lose 15 :c. lose 14 


760 nextJ 

770 ><:=-Pr-e<0> : input”another input*, disk ready" ;Z$ 

730 i-Pasc<Z^>=89^o-to220 
790 end 

800 input:"drive 0C3 le-P-t3 " ;D 

310 i -PD*DOD^jot:o800 

820 D^=chr^<D+43>:return 

330 inpu“fc#15,E r E$,El,E2 

340 i -PE=0"thenE= < ST ar.d 191 > sE*="*s-t*" 

850 return 

860 orenl5,T,15:inpu-t"want: -to new the output disk nC3 le-Pt 3 " ;Z$ 
370 i-Pasc<Z^>O89«foto910 
830 i nput" d i sk naine ^ i d " ; 

890 pr i nt# 15 r " r«" +T^+ " : " +X*+ " r " +'V* 

900 ^osub330: i -PEthenstop 2 o>oto860 

910 print# 15, " I "+T^ 2 open 1 ,T,8, ,, * ,, +T$+" 2 ! #^XA" 

920 ^osub830 2 i -PEthenstop 2 «foto360 
930 ojosufo930 2 ^osufo930 
940 -yet# 1 , 2 i tX^O M " ojoto940 

950 «5osub980 

960 L=X+Y#256sprint"<";L;"blocks tree >" 

970 c losel 2 C lose15 sr etur n 
930 o*et#l ,X$ 

990 -aet#l,X$ 

1000 cjet#l,X^ 

1010 X=len<X$> :itXther»X=asc<X^> 

1020 -det#l ,Y.% :V= len<X^> :ifVthenV=asc<X$> Continued 

1030 return 
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Machine Language portion ot program: 1 


0cc3 a2 03 20 c6 tt 20 73 0d 


0cd0 Se 40 02 a5 96 8d 41 02 


0cdS 20 cc tt a2 04 20 c9 tt 


0ce0 ae 40 02 20 61 0d ad 41 


0ceS 02 tG da 85 96 4c cc tt 


0C-P0 s9 00 35 5+ 35 60 20 cc 


0c 18 ft e6 5t d8 82 e6 68 a2 


0d00 0e 20 c9 -f-P a2 50 20 61 


0d88 8d a2 03 20 61 8d a6 5t 


0dl8 20 61 0d a6 68 20 61 8d 


0dl3 a2 01 20 61 0d 20 cc -f-f 


0d28 a2 8e 28 c6 -ft 20 73 8d 


0ci23 28 cc ft e8 30 -f0 01 68 


8d30 a2 83 20 c6 ft a0 -f-f c8 


0d38 20 73 8d a4 61 8a 99 7a 


8d40 02 a6 96 "f0 f2 84 62 20 


0d48 cc -ft a2 84 28 c9 tt a© 


0d58 tt cS b9 7a 82 aa 28 61 


8d5S ©d a4 61 c4 62 d8 t2 t0 


8d60 95 84 61 a8 10 8a 20 d2 


0d63 tt a.5 96 29 83 t8 83 88 


8d70 dG t3 68 84 61 a8 10 20 


8d7S e4 tt aa a5 96 29 83 t8 


0dS8 83 88 d8 t3 68 aa aa aa 

Save with Machine Language Monitor: 


.S " 0 :COP V/ftLL " ,03,0401,0d35 

After nr-ocjram has been saved, it: may be loaded and saved norma 1 \y u« ith 

Basic commands- 


PRINT RSCII FILES 


160 PRINT"SPRINT ASCII FILES JIM BUTTERFIELD" 

110 INPUT "DISK FILE NAME"rF* 

120 OPENS,8.,S r F$ 

125 INPUT"SCREEN OR PRINTER":D* 

126 D=ASC <D* >:IFD=30GOTO130 

127 IFD083GOT0125 

128 POKE59468-14sPRINT"il" ? :0PEN4 . 3 :POKE 136,0:GOTO140 

130 OPEN4,4 sPOKE136 r 17 :PRINT#4,"LISTING, FILE: ";F$:PRINT#4,"M"" 

140 SVS1536 

150 PRINT#4 

160 CLOSE4:CLOSES 

READV. 

THE MACHINE CODE PART 


0600 

A2 

88 

20 

C6 

FF 

20 

E4 

FF 

8688 

A6 

96 

88 

AA 

20 

CC 

FF 

SA 

0610 

29 

7F 

C9 

7F 

F0 

3A 

C9 

IF 

0618 

B0 

86 

C9 

0D 

F8 

14 

D0 

1A 

0620 

C9 

61 

98 

84 

29 

5F 

D0 

0A 

062S 

C9 

41 

90 

06 

C9 

60 

BO 

02 

0630 

©9 

80 

A2 

84 

20 

C9 

FF 

20 

0638 

02 

FF 

C9 

0D 

DO 

0F 

A5 

9E 

©640 

29 

01 

DO 

FA 

85 

9E 

A5 

38 

0648 

F0 

03 

2© 

D2 

FF 

20 

CC 

FF 

0658 

20 

El 

FF 

28 

F8 

AA 

4C 

CC 

8658 

FF 

46 

80 

0B 

F3 

7F 

08 

00 

0668 

44 

80 

01 

F8 

7F 

08 

00 

44 

8668 

00 

87 

26 

00 

00 

00 

AA 

AA 

8670 

AA 

AA 

AA 

AA 

AA 

AA 

AA 

AA 
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Continued from Page 19 


DISK UNIT SPECIFICATIONS 


MODEL 

D9060 

D9090 

8250 

8050 

4040 

2031 

1540 

DRIVES 

1 

1 

2 

2 

2 

1 

1 

HEADS/DRIVE 

4 

6 

2 

1 

1 

1 

1 

INTERFACE 

IEEE 

IEEE 

IEEE 

IEEE 

IEEE 

IEEE 

SERIAL 

MEDIA* 

Fixed 

Fixed 

DS,SD 

SS,SD 

SS,SD 

SS,SD 

SS.SD 

STORAGE CAPACITY 








Unformatted 

6.38Mb 

9.57Mb 

- 

- 

- 

- 

- 

Formatted 

4.97Mb 

7.46Mb 

2.1Mb 

1.06Mb 

348Kb 

174Kb 

174Kb 

Sequential File 

full disk capacity 

2.1Mb 

1.06Mb 

174Kb 

174Kb 

167Kb 

Relative File 

full diskcapacity 

1.04Mb 

182Kb 

171Kb 

171Kb 

168 Kb 

DISK FORMATS 








CylindersfTracks) 

153 

153 

77 

77 

35 

35 

35 

Sectors/Cylinder 

128 

192 

— 

— 

— 

- 

- 

Sectors per track 

32 

32 

23-29 

23-29 

17-21 

17-21 

17-21 

Bytes per sector 

256 

256 

256 

256 

256 

256 

256 

Blocks Free 

19442 

29162 

4166 

2052 

664 

664 

664 

TRANSER RATE 








Internal 

5 Mb/s 

5 Mb/s 

40 Kb/s 

40 Kb/s 

40 Kb/s 

40 Kb/s 

_ 

IEEE-488 Bus 

1.2 Kb/s 

1.2 Kb/s 

1.2 Kb/s 

1.2 Kb/s 

1.2 Kb/s 

1.2 Kb/s 

- 

ACCESS TIMES (milli-seconds) 







Track-to-track 

3 

3 

3 

30 

30 

30 

- 

Average 

153 

153 






Head settling time 

15 

15 






Average Latency 

8.34 

8.34 

100 

100 

100 

100 

— 

RPM 

3600 

3600 

300 

300 

300 

300 

_ 

File Interface (ALL MODELS): Shared memory - (2114) 4Kb RAM 





PHYSICAL DIMENSIONS 








Height (mm) 

140 

140 

181 

181 

181 

144 

97 

Width (mm) 

210 

210 

381 

381 

381 

204 

200 

Depth (mm) 

385 

385 

394 

394 

394 

370 

374 

Weight (Kgs.) 

9.5 

9.5 

12.6 

12.6 

12.6 

8.0 

4.5 

ELECTRICAL (ALL MODELS) 








Voltage (VAC) 

240 

240 

240 

240 

240 

240 

240 

Frequency (Hz) 

50 

50 

50 

50 

50 

50 

50 

Power (watts) 

200 

200 

70 

60 

60 

50 

25 


SS Single Sided Floppy Diskette SD Single Density Floppy Diskette 
DS Double sided Floppy Diskette DD Double Density Floppy Diskette 
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Hex. 

$0000 


$0200 


$0400 


$0600 


$0800 


$0A00 


$0C00 


$0E00 


$1000 


$1200 


$1400 


$1600 


$1800 


$1A00 


$1C00 


$ 1E00 


VIC MEMORY MAPS 

Dec. 

0 

Lower memory map for Vic 20. 

512 

1024 

1536 

2048 

2560 

3072 

3584 

4096 

4608 


5120 

5632 


6144 


6656 

7168 

7680 


BASIC Working Storage - $0090 
Kernal Working Storage - $0100 
BASIC and Kernal Stack - $0200 


BASIC and Kernal Working Storage - $033B 
Tape Buffer and Working Storage - $0400 

Start of 3K expansion area, not used 
in Basic system. 

Available for expansion using 

3K RAM Pack 
3K Super Expander. 


Start of BASIC text moving down ($1001) 


Variable and string storage moving 
from end of program. 


X 


String storage starts from limit of 4^ 
memory and moves up til it * hits' 
variable storage. 


Character Screen storage - $1FFF 


$2000 


8192 
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Hex. 

$2000 


Dec. 
8192 


$3000 


$4000 


$5000 


$6000 


$7000 


$8000 


$9000 


$A000 


$B000 


$C000 


$D000 


$E000 


$F000 


$FFFF 


Block#1 includes memory from $2000 to 

$3FFF , j 

- 12288 

RAM / ROM expansion for use with 

8K RAM Pack, 

16K RAM Pack 

- 16384 

Block #2 includes memory from $4000 to 
$5FFF, 


j RAM / ROM expansion for use with 

8K 

RAM Pack, 

16K RAM Pack 

Block #3 includes 

$6000 to $6FFF used 

memory from 

$6000 to $8FFF, 

by VICMON cartridge. 

RAM / ROM expan. 
with :- | 

8K RAM Pack ' 

■ $7000 to $7FFF used 

by Programmers Aid 

cartridcre. 

Reserved for Character Generator in 

ROM (4K). 


$9000 to $93FF - I/O Block & VIC Chip j 

$9400 + 512 bytes 
Or $9600 + 512 bytes 

Colour Nibbles for 
screen colour. 


Block#4 includes memory from $A000 to 
$C000, 


RAM / ROM expansion for use with :- 
8K RAM Pack 
Games cartridge. 

BASIC interpreter V2(ROM) 


20480 


24576 


28672 


32768 


36864 


40960 


45056 


49152 


Upper memory map of Vic 20 
with no expansion RAM in either 
Block #1 or at $0400. 

Note: 16K RAM Pack is mapped 
into Blocks #1 and #2. 


Note: Colour Nibbles move from 
$9600 to $6400 when RAM is 
used in Block #1. 

Note: $A004 to $A008 used for 
auto-power-up sequence. 


Kernal and Operating System(ROM) 


53248 


57344 


61440 


65535 
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Hex. Dec. 



Lower memory map for Vic 20 
with 3k RAM Pack or Super 
Expander only. 
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Hex. 


$0000 


$0200 


$0400 


$0600 


$0800 


$0A00 


$0C00 


$0E00 


$1000 


$1200 


$1400 


$1600 


$1800 


$1A00 


$1C00 


$ 1E00 


$2000 



BASIC Working Storage - $0090 

Kernal Working Storage - $0100 

BASIC and Kernal Workina Storaae - $0200 


BASIC and Kernal Working Storage - $0200 

Tape Buffer and Working Storage - $0400 


3K expansion area not used for BASIC 

storage at all. 


3K super Expander uses it's 3K of RAM 

mapped to this area for Hi ah rpq. 


graphics. 

Can be used to store machine code 

routines with the 3K RAM Pack. 



Character Screen storage - $1200 

Start of BASIC text and continues as 

user RAM through Block #1 til limit of 

memory is reached.. 







Dec. 
0 


512 


1024 


1536 


20 4 8 


2560 


3072 


3584 


4096 


4608 


5120 


5632 


6144 


66 56 


7168 


7680 


8192 


Lower memory map of Vic 20 
with RAM expansion in Block#1. 


Note: With this configuration the 
Colour Nibbles move from 
$9600 to $9400. 
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mm E THE MOST OF YOUR 

COMMODORE 


HIGH-RESOLUTION 

GRAPHICS 

Now you can give your PET/CBM a High- 
Resolution Graphics capability with the MTU 
Graphics Hardware and Software Package. 
The Hardware is easily installed and the new 
graphics board provides five EXTRA ROM 
Sockets and 8k RAM MEMORY EXPAN¬ 
SION which can be used for program or data 
storage when graphics are not required. A 
powerful graphics Software Package is 
included and contains many extra BASIC 
commands for drawing lines defining shapes 
etc. The Graphics Hardware does not affect 
normal operation of the Commodore. 

Available on all PET/CBM - 
BASIC 1,2,3, or 4. 

RS232 TEST SET 

The RS232 TESTSET is a small hand held 
'device that connects inline with the interface 
cable, the terminal or the modem and monitors 
the line signals. The TESTSET passes all 25 
lines through and so can be left connected 
without affecting communications. It is 
completely portable as no batteries are required 
since power us derived from the interface 
signals. Each indicator circuit is current limited 
to meet the requirements of the RS232 
Interface Standard. Also the voltage range for 
activating the bright LED display corresponds 
with this standard and thereby reduces 
troubleshooting to a “GO-NOGO” problem 
instead of trying to measure active signals to 
determine voltage levels. One 2-pin and one 3- 
pin jumper are included. 


PRINTOUT 

Don’t forget your PRINTOUT Magazine 
Subscription • for Commodore PET/CBM 
Lovers 12 issues p.a. from Jan. ’82 inch postage 
- $50.00 p.a. 

VIC COMPUTING 

For all VIC 20 owners, this sister to 
PRINTOUT is a must 6 issues p.a. inch 
postage from Jan. ’82 - $25.00 p.a. 



PROGRAMMERS TOOLKIT ROMS 


These ROMs plug into spare sockets in your PET/CBMs and give the user additional commands 
such as TRACE, single STEP, FIND, RE-NUMBER, AUTO line numbering,DUMP variable 
contents, APPEND, and DELETE multiple lines. Also available are the DISK-O-PRO Tool kits 
which gives all the extra DOS 2.0 commands to DOS 1.0 users as well as commands like PRINT 
USING, SCROLL and disk program MERGE -25 commands in all. The COMMAND-O provides 
DISK-O-PRO commands for BASIC 4.0 users. 


The Programmers Toolkit for BASIC 1.0/2.0/3.0/4.0 users. 
DISK-O-PRO Toolkit for BASIC 2.0/3.0 users. 
COMMAND-O Toolkit for BASIC 4.0 users. 


Tel: (03)6141433 
614°1551 


Telex: AA 30333. 



MICROCOMPUTER SYSTEMS DESIGNERS 


B.S. MICROCOMP 
PTY. LIMITED, 

4th & 3rd Floors, 
561 Bourke Street, 
Melbourne, 3000. 













Get it all together 
with the Silicon Office. 


STORING AND RETRIEVING INFORMATION CREATING, EDITING AND PRINTING OH TEXT 
- MATHEMATICAL CALCULATION COMMUNICATING INFORMATION LONG DISTANCE. 

Silicon Office is the first database management System for Commodore CBM Microcomputers wlieieby up to six files may Ik? 
open and accessed simultaneously during a run. It is also the first system which peimits intercommunication with fellow 
machines and user. The Silicon Office turns the CBM 8032 into a secretarial work station capable of emulating .my application 
package the user cares to think of. 

Now one program which is continuously and completely resident m the memory of the CBM is capable of pm forming all 
functions required to run a small business or office. This can mean anything from Accounting and Stock Control to Word 
Processing, Statistical analysis, mailing lists and information filing all at once, if necessary. Combine filing cabinets, ledgers, 
typewriter and calculator in your office into one efficient unit. 

The Silicon Office package comprises of three integrated elements: a sophisticated woid piocessot, a flexible database 
management system and an option for inter computer communications - all in one memory resident program. 


$8480 


THIS BUSINESS PACKAGE IS NOW AVAILABLE AND WILL COMPRISE: 

• 8023 DOT MATRIX/PSEUDO PRINTER ^COMMODORE CBM 8032 COMPUTER 
•8050 DISC DRIVE UNIT • 64K ADD-ON MEMORY BOARD (TOTAL 96K RAM) 

• THE SILICON OFFICE PROGRAM MASTER DISC •TWO SECTIONAL A4 MANUALS 

This package is available from: 

ompute. CBM SYSTEMS 


5 PRESIDENT AVE., GARINGBAH 
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